Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17559
Modified Files: Tag: desiredata desire.tk Log Message: fixing "Comment shouldn't appear on GOP"
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.377 retrieving revision 1.1.2.600.2.378 diff -C2 -d -r1.1.2.600.2.377 -r1.1.2.600.2.378 *** desire.tk 15 Aug 2007 17:31:51 -0000 1.1.2.600.2.377 --- desire.tk 15 Aug 2007 17:36:53 -0000 1.1.2.600.2.378 *************** *** 1450,1458 **** if {$@canvas eq ""} {return} # always hide these things ! if {[$self class] == Wire} {set @inside_box 0; return} ! if {[$self class] == ObjectBox} {set @inside_box 0; return} ! if {[$self class] == MessageBox} {set @inside_box 0; return} ! if {[$self class] == Comment} {set @inside_box 0; return} ! if {[$self class] == Array} {$@canvas visibles+= $self; set @inside_box 1; return} set x1 $@x1; set y1 $@y1 if {[$@canvas gop]} { --- 1450,1458 ---- if {$@canvas eq ""} {return} # always hide these things ! if {[$self class] == "Wire"} {set @inside_box 0; return} ! if {[$self class] == "ObjectBox"} {set @inside_box 0; return} ! if {[$self class] == "MessageBox"} {set @inside_box 0; return} ! if {[$self class] == "Comment"} {set @inside_box 0; return} ! if {[$self class] == "Array"} {$@canvas visibles+= $self; set @inside_box 1; return} set x1 $@x1; set y1 $@y1 if {[$@canvas gop]} {