[PD-cvs] pd/src desire.tk,1.1.2.600.2.9,1.1.2.600.2.10
Mathieu Bouchard
matju at users.sourceforge.net
Mon Dec 4 22:27:38 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15901
Modified Files:
Tag: desiredata
desire.tk
Log Message:
some work on serial
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.9
retrieving revision 1.1.2.600.2.10
diff -C2 -d -r1.1.2.600.2.9 -r1.1.2.600.2.10
*** desire.tk 4 Dec 2006 14:20:41 -0000 1.1.2.600.2.9
--- desire.tk 4 Dec 2006 21:27:35 -0000 1.1.2.600.2.10
***************
*** 47,52 ****
if {[file exists debug.tcl]} {
source debug.tcl
- } else {
- puts "not loading debug.tcl, because it isn't there."
}
--- 47,50 ----
***************
*** 218,226 ****
global serial replyset
if {$n > $serial} {error "object creation serial number is in the future"}
! eval [concat $replyset($serial) [list $obj]]
! array unset replyset $serial
}
! proc pd {args} {netsend [join $args]}
proc netsend {message {callback nonesuch}} {
--- 216,227 ----
global serial replyset
if {$n > $serial} {error "object creation serial number is in the future"}
! eval [concat $replyset($n) [list $obj]]
! array unset replyset $n
}
! proc pd {args} {
! puts "[VTyellow]warning: proc pd is obsolete (called from [info level -1]).[VTgrey]"
! netsend [join $args]
! }
proc netsend {message {callback nonesuch}} {
***************
*** 684,688 ****
-variable $y -anchor w -command $z] -side left
}
! pack [button .controls.switches.dio -text [say io_errors] -command {pd pd audiostatus}]
pack .controls.switches -side right
frame .debug
--- 685,689 ----
-variable $y -anchor w -command $z] -side left
}
! pack [button .controls.switches.dio -text [say io_errors] -command {pd pd audiostatus} -padx 5]
pack .controls.switches -side right
frame .debug
***************
*** 781,787 ****
return
}
! post "connected!"
fconfigure $sock -blocking 0 -buffering line
! pd pd init
poll_sock
foreach f $::files_to_open {
--- 782,788 ----
return
}
! post "Connected to server"
fconfigure $sock -blocking 0 -buffering line
! netsend "pd init"
poll_sock
foreach f $::files_to_open {
***************
*** 853,860 ****
set untitled_folder [pwd]
def Client new_file {} {
global untitled_number untitled_folder
! pd pd filename Untitled-$untitled_number $untitled_folder
! pd {#N canvas; #X pop 1}
incr untitled_number
}
--- 854,864 ----
set untitled_folder [pwd]
+ proc none {args} {}
+
def Client new_file {} {
global untitled_number untitled_folder
! netsend "pd filename Untitled-$untitled_number $untitled_folder"
! netsend "#N canvas"
! netsend "#X pop 1" {none}
incr untitled_number
}
***************
*** 1746,1750 ****
set x1 [expr $x/$@zoom]
set y1 [expr $y/$@zoom]
! eval [concat [list pd .$self $sel $x $y] $args]
}
--- 1750,1759 ----
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}
! }
!
! def Canvas new_object_callback {obj} {
! ...
}
***************
*** 5548,5552 ****
pack [frame $serf.1.1] -side bottom
pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left
! pack [label $serf.1.1.label -text "$name: " -font $look(View:font)] -side left
pack [entry $serf.entry -width 40 -font $look(View:font)] -side left -fill x -expand yes
pack $serf -fill x -expand no
--- 5557,5561 ----
pack [frame $serf.1.1] -side bottom
pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left
! pack [label $serf.1.1.label -width 10 -text "$name: " -font $look(View:font)] -side left
pack [entry $serf.entry -width 40 -font $look(View:font)] -side left -fill x -expand yes
pack $serf -fill x -expand no
***************
*** 7478,7479 ****
--- 7487,7491 ----
#vwait foo
}
+
+ set t0 [expr [clock clicks -millis]-$t0]
+ puts "time to load: $t0 ms"
More information about the Pd-cvs
mailing list