[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