[PD-cvs] pd/src desire.tk,1.1.2.595,1.1.2.596

Mathieu Bouchard matju at users.sourceforge.net
Mon Nov 27 22:17:31 CET 2006


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
! 		}
! 	}
  }





More information about the Pd-cvs mailing list