pd/src desire.tk,1.1.2.600.2.293,1.1.2.600.2.294 - Pd-cvs

6 Aug 2007


      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