|
|
|
@ -1,6 +1,15 @@
|
|
|
|
|
|
|
|
|
|
package require starkit |
|
|
|
|
starkit::startup |
|
|
|
|
|
|
|
|
|
#when run as a tclkit - the exe is mounted as a dir and Tcl's auto_execok doesn't find it |
|
|
|
|
set thisexe [file tail [info nameofexecutable]] |
|
|
|
|
set thisexeroot [file rootname $thisexe] |
|
|
|
|
set ::auto_execs($thisexeroot) [info nameofexecutable] |
|
|
|
|
if {$thisexe ne $thisexeroot} { |
|
|
|
|
set ::auto_execs($thisexe) [info nameofexecutable] |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
if {[llength $::argv]} { |
|
|
|
|
package require app-shellspy |
|
|
|
|
} else { |
|
|
|
|