Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22076
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed paste bug for Tcl 8.5; also disabled tclreadline in tclsh mode.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.599 retrieving revision 1.1.2.600 diff -C2 -d -r1.1.2.599 -r1.1.2.600 *** desire.tk 28 Nov 2006 16:07:17 -0000 1.1.2.599 --- desire.tk 28 Nov 2006 20:05:39 -0000 1.1.2.600 *************** *** 2831,2835 **** set mess2 [lreplace $mess 2 3 $x2 $y2] } ! pd $mess2 incr @obj_count } --- 2831,2835 ---- set mess2 [lreplace $mess 2 3 $x2 $y2] } ! pd [join $mess2] incr @obj_count } *************** *** 7459,7470 **** } else { 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 ! } ! } } --- 7459,7471 ---- } else { 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 ! # } ! # } ! vwait foo }