46 lines
1.0 KiB
Tcl
46 lines
1.0 KiB
Tcl
|
#!/bin/sh
|
||
|
|
# \
|
||
|
|
exec tkgwish8.0 "$0" ${1+"$@"}
|
||
|
|
|
||
|
|
# tkgoodstuff version 8.0-final, 1 Oct, 1997
|
||
|
|
# See the file "COPYRIGHT" in the doc directory for more info
|
||
|
|
|
||
|
|
set TKG(version) "8.0-final"
|
||
|
|
set TKG(releasedate) "1 Oct, 1997"
|
||
|
|
set TKG(libdir) /usr/local/lib/TKGsrc
|
||
|
|
set TKG(language) english
|
||
|
|
|
||
|
|
set TKG(configfileformatversion) 1
|
||
|
|
|
||
|
|
if [catch {package require Tk 8.0}] {
|
||
|
|
error "tkgoodstuff requires at least tcl/tk 8.0b1"
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach f {
|
||
|
|
startup.tcl defaults.tcl configcommands.tcl panelgeo.tcl
|
||
|
|
elements.tcl dialogs.tcl international.tcl async.tcl mainwin.tcl
|
||
|
|
popup.tcl inits.tcl misc.tcl tkgbutton.tcl swallow.tcl
|
||
|
|
} { source $TKG(libdir)/tcl/$f }
|
||
|
|
unset f
|
||
|
|
|
||
|
|
##############################################################
|
||
|
|
# Main Program:
|
||
|
|
##############################################################
|
||
|
|
|
||
|
|
TKGInitialize
|
||
|
|
TKGRCInit
|
||
|
|
TKGGetPreferences
|
||
|
|
TKGLibInit
|
||
|
|
TKGFvwmInit
|
||
|
|
TKGLangInit
|
||
|
|
TKGDefaults
|
||
|
|
TKGEvalConfig
|
||
|
|
TKGResolvePreferences
|
||
|
|
TKGSetResources
|
||
|
|
TKGDoHook TKG_clientsloaded_hook
|
||
|
|
TKGPopupInit
|
||
|
|
TKGScreenEdgeInit
|
||
|
|
TKGInitClients
|
||
|
|
TKGDraw
|
||
|
|
TKGDoHook TKG_alldone_hook
|