[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