[PD-cvs] pd/src desire.tk,1.1.2.600.2.23,1.1.2.600.2.24

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24438

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed bug in detection of bad serials


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.23
retrieving revision 1.1.2.600.2.24
diff -C2 -d -r1.1.2.600.2.23 -r1.1.2.600.2.24
*** desire.tk	5 Dec 2006 22:00:32 -0000	1.1.2.600.2.23
--- desire.tk	6 Dec 2006 00:02:21 -0000	1.1.2.600.2.24
***************
*** 215,219 ****
  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
--- 215,219 ----
  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
***************
*** 1755,1760 ****
  	}
  }
! def Canvas reload {} {pd .$self map 0; pd .$self map 1}
! 
  def Canvas redraw {} {
      $self changed
--- 1755,1762 ----
  	}
  }
! def Canvas reload {} {
! 	netsend ".$self map 0"
! 	netsend ".$self map 1"
! }
  def Canvas redraw {} {
      $self changed