[PD-cvs] pd/src desire.tk,1.1.2.600.2.79,1.1.2.600.2.80

[chunlee]

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
+ 	}
  }