Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv480
Modified Files: Tag: desiredata desire.tk Log Message: serial fudged
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.79 retrieving revision 1.1.2.600.2.80 diff -C2 -d -r1.1.2.600.2.79 -r1.1.2.600.2.80 *** desire.tk 14 Dec 2006 01:26:24 -0000 1.1.2.600.2.79 --- desire.tk 14 Dec 2006 02:19:07 -0000 1.1.2.600.2.80 *************** *** 223,230 **** set serial 0 proc serial {n obj} { ! 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 }
--- 223,233 ---- set serial 0 proc serial {n obj} { ! global serial replyset future if {$n >= $serial} {error "object creation serial number is in the future"} ! if {[info exists _($obj:_class)]} { ! eval [concat $replyset($n) [list $obj]] ! } else {set future($obj) $replyset($n)} array unset replyset $n + puts " [info exists replyset($n)] exists? -----------" }
*************** *** 4328,4331 **** --- 4331,4335 ----
proc change {self canvas e {ninlets 0} {noutlets 0}} { + global future foreach mess [pd_mess_split $e] {change_2 $self $mess} #the server ought to take care of this: *************** *** 4335,4338 **** --- 4339,4346 ---- $self noutlets= $noutlets $self changed + if {[info exists future($self)]} { + eval [concat $future($self)] [list $self] + array unset future $self + } }