[PD-cvs] pd/src desire.tk,1.1.2.600.2.99,1.1.2.600.2.100

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
MessageBoxes update correctly when modified by messages


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.99
retrieving revision 1.1.2.600.2.100
diff -C2 -d -r1.1.2.600.2.99 -r1.1.2.600.2.100
*** desire.tk	18 Dec 2006 21:03:52 -0000	1.1.2.600.2.99
--- desire.tk	18 Dec 2006 21:15:59 -0000	1.1.2.600.2.100
***************
*** 3945,3951 ****
      if {[lindex $mess 1] == "obj"} {set i 4} else {set i 1}
      set @pdclass [lindex $mess $i]
-     set i 0
      if {[info exists fields($@pdclass)]} {
  	    foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i]; incr i}
      }
      $self outside_of_the_box
--- 3945,3953 ----
      if {[lindex $mess 1] == "obj"} {set i 4} else {set i 1}
      set @pdclass [lindex $mess $i]
      if {[info exists fields($@pdclass)]} {
+ 	    set i 0
  	    foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i]; incr i}
+     } else {
+ 	set @text [lrange $mess 4 end]
      }
      $self outside_of_the_box