Index: library/lib/nx-shell.tcl =================================================================== diff -u -rb8ca306282c9a1000b1c93ffd97f7f4673953f65 -r89f7f5d879f2881445c70e1c5b4be391cabaf6a0 --- library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision b8ca306282c9a1000b1c93ffd97f7f4673953f65) +++ library/lib/nx-shell.tcl (.../nx-shell.tcl) (revision 89f7f5d879f2881445c70e1c5b4be391cabaf6a0) @@ -42,7 +42,7 @@ package provide nx::shell 1.1 -nx::Object create ::nx::shell2 { +nx::Object create ::nx::shell { :public object method onRead {{chan stdin}} { append :line [read $chan] @@ -219,42 +219,6 @@ interp expose {} try; } } - } - -} - -nx::Object create ::nx::shell { - :public object method run {argc argv} { - if {$argc == 0} { - set prefix "" - set line "" - while {1} { - update - if {$line eq ""} { - puts -nonewline "% " - flush stdout - } - append line [gets stdin] - if {[info complete $line]} { - set script [list catch $line [current]::result [current]::opts] - set r [uplevel #0 $script] - if {$r} { - puts [dict get ${:opts} -errorinfo] - unset :opts; - } else { - puts ${:result} - unset :result - } - set line "" - continue - } - append line \n - } - } else { - set ::argv [lassign $argv argv0] - incr ::argc -1 - uplevel #0 [list source $argv0] - } } }