[PD-cvs] pd/src desire.tk,1.1.2.600.2.377,1.1.2.600.2.378

[Mathieu Bouchard]

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]} {