#   Copyright (C) 1987-2007 by Jeffery P. Hansen
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Last edit by hansen on Mon Jan 19 14:20:34 2004

#
# Basic setup for the main window.
#
wm title . "$tkg_progName $tkg_progVer"
wm iconbitmap . "@$bd/gatelogo.xbm"
wm minsize . 700 440


frame .mbar -relief raised -bd 2 -takefocus 1
frame .tbar

frame .status  -height 50 -relief groove -bd 2

frame .sbar

#frame .sbar.tech -bd 2 -relief groove
#label .sbar.tech.l -text "[m b.tech]:"

labelframe .sbar.tech [m b.tech]

Dropbox::new .sbar.tech.v -variable tkg_defaultTech -value $tkg_defaultTech -width 15
Dropbox::itemadd .sbar.tech.v [gat_getTechList]
#pack .sbar.tech.l -anchor w  -padx 3 -pady 3
pack .sbar.tech.v -anchor w  -padx 3 -pady 11
pack .sbar.tech -fill both  -padx 3 -pady 3
#helpon .sbar.tech [m ho.deftech]
helpon .sbar.tech_label [m ho.deftech]



frame .frame
frame .frame.cf -relief sunken -bd 2

scrollbar .vert -command ".frame.cf.canvas yview" -takefocus 0
scrollbar .horz -orient horizontal -command ".frame.cf.canvas xview" -takefocus 0
bind .vert <ButtonPress> {.frame.cf.canvas yview press %b }
bind .horz <ButtonPress> {.frame.cf.canvas xview press %b }
bind .vert <ButtonRelease> { gat_obUnstick }
bind .horz <ButtonRelease> { gat_obUnstick }

pack .frame.cf -side top -fill both -expand 1 -padx 5 -pady 5

grid rowconfig . 2 -weight 1 -minsize 0
grid columnconfig . 1 -weight 1 -minsize 0

grid .mbar -row 0 -column 0 -columnspan 3 -sticky news
grid .tbar -row 1 -column 0 -columnspan 3 -sticky news

grid .frame -row 2 -column 1 -sticky news
grid .vert -row 2 -column 2 -sticky news -padx 2 -pady 2
grid .horz -row 3 -column 1 -sticky news -padx 2 -pady 2
grid .status -row 4 -column 0 -columnspan 3 -sticky news
grid .sbar -row 2 -column 0 -sticky news -rowspan 2

focus .mbar
tkg_setBindings .mbar

