[PD-cvs] pd/src desire.tk,1.1.2.600.2.75,1.1.2.600.2.76
Mathieu Bouchard
matju at users.sourceforge.net
Thu Dec 14 00:25:23 CET 2006
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
}
More information about the Pd-cvs
mailing list