pd/src desire.tk,1.1.2.600.2.10,1.1.2.600.2.11 - Pd-cvs

5 Dec 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 ----