Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4611
Modified Files: Tag: desiredata desire.tk Log Message: fix right-click help for MessageBox,FloatBox,SymbolBox,Comment
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.75 retrieving revision 1.1.2.600.2.76 diff -C2 -d -r1.1.2.600.2.75 -r1.1.2.600.2.76 *** desire.tk 13 Dec 2006 21:37:37 -0000 1.1.2.600.2.75 --- desire.tk 13 Dec 2006 23:25:19 -0000 1.1.2.600.2.76 *************** *** 4296,4300 **** # basic patchables classinfo obj ObjectBox ! classinfo msg MessageBox classinfo floatatom FloatBox classinfo symbolatom SymbolBox --- 4296,4300 ---- # basic patchables classinfo obj ObjectBox ! classinfo message MessageBox classinfo floatatom FloatBox classinfo symbolatom SymbolBox *************** *** 4348,4353 **** "#N" {if {$isnew} {Canvas new_as $self $mess} else {$self reinit $mess}} "#X" { ! if {[lindex $mess 1] == "obj"} {set i 4} {set i 1} ! set class [lindex $mess $i] if {[info exists classinfo($class)]} { set _class [lindex $classinfo($class) 0] --- 4348,4357 ---- "#N" {if {$isnew} {Canvas new_as $self $mess} else {$self reinit $mess}} "#X" { ! set i 1 ! # would it be possible to merge floatatom,symbolatom as gatom ? ! switch -- [lindex $mess 1] { ! obj {set class [lindex $mess 4]} ! msg {set class message} ! default {set class [lindex $mess 1]}} if {[info exists classinfo($class)]} { set _class [lindex $classinfo($class) 0] *************** *** 4361,4367 **** if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess} switch -- $class { array {$self length= [lindex $mess 3]; $self name= [lindex $mess 2]} ! default {$self position= [lrange $mess 2 3]} ! } $self pdclass= $class } --- 4365,4372 ---- if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess} switch -- $class { + floatatom {set class gatom} + symbolatom {set class gatom} array {$self length= [lindex $mess 3]; $self name= [lindex $mess 2]} ! default {$self position= [lrange $mess 2 3]}} $self pdclass= $class }