11 lines
246 B
Tcl
Executable File
11 lines
246 B
Tcl
Executable File
wm title . tkgoodstuff
|
|
wm withdraw .
|
|
|
|
# Replace "~" with home directory in env(PATH)
|
|
if { [string first ~ $env(PATH)] != -1} {
|
|
regsub -all ~ $env(PATH) [glob ~] env(PATH)
|
|
}
|
|
|
|
set auto_path [linsert $auto_path 0 $TKG(libdir)/tcl $TKG(libdir)]
|
|
|