[PD-cvs] pd/src desire.tk,1.1.2.600.2.293,1.1.2.600.2.294

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17604

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
renaming "visible_children" functionality to "visibles" so that the other "children" stand out in the source code


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.293
retrieving revision 1.1.2.600.2.294
diff -C2 -d -r1.1.2.600.2.293 -r1.1.2.600.2.294
*** desire.tk	6 Aug 2007 06:56:09 -0000	1.1.2.600.2.293
--- desire.tk	6 Aug 2007 16:17:12 -0000	1.1.2.600.2.294
***************
*** 1391,1395 ****
  		#set @inside_box 1; return
  		mset {x1 y1} [$@canvas xy]
! 		$@canvas visible_children+= $self
  		set @inside_box 1
  		return
--- 1391,1395 ----
  		#set @inside_box 1; return
  		mset {x1 y1} [$@canvas xy]
! 		$@canvas visibles+= $self
  		set @inside_box 1
  		return
***************
*** 1409,1416 ****
  		    $y1 < $pixheight+$ymargin && $y1 > $ymargin} {
  			set @inside_box 1
! 			$@canvas visible_children+= $self
  		} else {
  			set @inside_box 0
! 			$@canvas visible_children-= $self
  		}
  	} else {
--- 1409,1416 ----
  		    $y1 < $pixheight+$ymargin && $y1 > $ymargin} {
  			set @inside_box 1
! 			$@canvas visibles+= $self
  		} else {
  			set @inside_box 0
! 			$@canvas visibles-= $self
  		}
  	} else {
***************
*** 1656,1660 ****
      set @keynav_shift 0
      set @copy_count 0
!     set @visible_children {}
      set @findbar ""
      set @find_string ""
--- 1656,1660 ----
      set @keynav_shift 0
      set @copy_count 0
!     set @visibles {}
      set @findbar ""
      set @find_string ""
***************
*** 2674,2695 ****
  }
  
! def Canvas visible_children+= {child} {
! 	if {[lsearch $@visible_children $child] < 0} {
! 		set @visible_children [lappend @visible_children $child]
! 		$self changed visible_children
! 	}
  }
! 
! def Canvas visible_children-= {child} {
! 	if {[lsearch $@visible_children $child] >= 0} {
! 		set @visible_children [lwithout $@visible_children $child]
! 		$self changed visible_children
! 	}
  }
  
! def Canvas visible_children {} {return $@visible_children}
  
  def Canvas all_changed {} {
! 	foreach x $@visible_children {
  		if {[$x class] == "Canvas"} {
  			if {$@gop} {$x all_changed}
--- 2674,2688 ----
  }
  
! def Canvas visibles+= {child} {
! 	if {[lsearch $@visibles $child]  < 0} {lappend @visibles $child; $self changed visibles}
  }
! def Canvas visibles-= {child} {
! 	if {[lsearch $@visibles $child] >= 0} {set @visibles [lwithout $@visibles $child]; $self changed visibles}
  }
  
! def Canvas visibles {} {return $@visibles}
  
  def Canvas all_changed {} {
! 	foreach x $@visibles {
  		if {[$x class] == "Canvas"} {
  			if {$@gop} {$x all_changed}
***************
*** 2931,2935 ****
  	if {[[$obj class] <= Box]} {
  		if {[$obj class] == "Canvas"} {
! 			if {[$obj gop]} {[$self widget] raise [list $obj [$obj visible_children]]}
  		} else {
  			[$self widget] raise $obj
--- 2924,2928 ----
  	if {[[$obj class] <= Box]} {
  		if {[$obj class] == "Canvas"} {
! 			if {[$obj gop]} {[$self widget] raise [list $obj [$obj visibles]]}
  		} else {
  			[$self widget] raise $obj
***************
*** 4867,4871 ****
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
  	if {[$self class] == "Canvas"} {
! 		if {[$self gop] && ![winfo exists .$self.c]} {foreach x $@visible_children {$x changed}}
  	}
  	set @x1 $x1
--- 4860,4864 ----
  	[$@canvas history] add [list $self moveto $@x1 $@y1]
  	if {[$self class] == "Canvas"} {
! 		if {[$self gop] && ![winfo exists .$self.c]} {foreach x $@visibles {$x changed}}
  	}
  	set @x1 $x1