Browse Source

fix auto_execs for tclkit so able to call self as sub process

master
Julian Noble 1 year ago
parent
commit
bf769adac6
  1. 9
      src/punk86.vfs/main.tcl

9
src/punk86.vfs/main.tcl

@ -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 {

Loading…
Cancel
Save