[PD-cvs] pd/src desire.tk,1.1.2.599,1.1.2.600

[Mathieu Bouchard]

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
  }