#!@WISH_PROG@ ###!/Users/neumann/src/tcl8.4.12/unix/tclsh ###package require Tk if {$argc == 0} { puts "Don't use [info script] as interactive shell! Use instead:" puts " @WISH_PROG@" puts " package require XOTcl; namespace import ::xotcl::*" exit } else { package require XOTcl namespace import ::xotcl::* set argv0 [lindex $argv 0] set argv [lreplace $argv 0 0] incr argc -1 source $argv0 } ###catch {vwait forever}