Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1782
Modified Files: Tag: devel_0_39 desire.tk Log Message: tclsh mode with our own repl
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.595 retrieving revision 1.1.2.596 diff -C2 -d -r1.1.2.595 -r1.1.2.596 *** desire.tk 27 Nov 2006 20:46:47 -0000 1.1.2.595 --- desire.tk 27 Nov 2006 21:17:27 -0000 1.1.2.596 *************** *** 7424,7427 **** set cmdline(console) 0 package require tclreadline ! ::tclreadline::Loop } --- 7424,7434 ---- set cmdline(console) 0 package require tclreadline ! #::tclreadline::Loop ! proc ::tclreadline::prompt1 {} {return "desire> "} ! while {1} { ! puts "What?" ! if {[catch {puts [::tclreadline::readline read]}]} { ! puts $::errorInfo ! } ! } }