/usr/share/tkgate-1.8.7/scripts/frame.tcl is in tkgate-data 1.8.7-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | # 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
|