[PD-cvs] pd/src desire.tk,1.1.2.600.2.10,1.1.2.600.2.11

Mathieu Bouchard matju at users.sourceforge.net
Tue Dec 5 01:13:21 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8512

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix typos.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.10
retrieving revision 1.1.2.600.2.11
diff -C2 -d -r1.1.2.600.2.10 -r1.1.2.600.2.11
*** desire.tk	4 Dec 2006 21:27:35 -0000	1.1.2.600.2.10
--- desire.tk	5 Dec 2006 00:13:17 -0000	1.1.2.600.2.11
***************
*** 854,857 ****
--- 854,858 ----
  set untitled_folder [pwd]
  
+ # just a dummy proc
  proc none {args} {}
  
***************
*** 1750,1755 ****
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	#eval [concat [list pd .$self $sel $x $y] $args]
! 	netsend [join [concat [list pd .$self $sel $x $y] $args]] {$self new_object_callback}
  }
  
--- 1751,1755 ----
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_callback]
  }
  
***************
*** 1942,1948 ****
  	set c [lindex $mess 4]
  	if {$c != ""} {
! 		set c_pos [string first $c $mess 0]
! 		set s [string range $mess $c_pos end]
! 		regsub -all {\\} $s "" text
  	} else {
  		set text ""
--- 1942,1947 ----
  	set c [lindex $mess 4]
  	if {$c != ""} {
! 		# what's this hack?
! 		regsub -all {\\} [string range $mess [string first $c $mess 0] end] "" text
  	} else {
  		set text ""
***************
*** 7487,7491 ****
  	#vwait foo
  }
- 
- set t0 [expr [clock clicks -millis]-$t0]
- puts "time to load: $t0 ms"
--- 7486,7487 ----





More information about the Pd-cvs mailing list