[PD-cvs] pd/src desire.tk, 1.1.2.461, 1.1.2.462 objective.tcl, 1.1.2.21, 1.1.2.22

Mathieu Bouchard matju at users.sourceforge.net
Wed Sep 6 02:51:29 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk objective.tcl 
Log Message:
renamed def Class inherit? to <=


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.461
retrieving revision 1.1.2.462
diff -C2 -d -r1.1.2.461 -r1.1.2.462
*** desire.tk	6 Sep 2006 00:20:22 -0000	1.1.2.461
--- desire.tk	6 Sep 2006 00:51:26 -0000	1.1.2.462
***************
*** 2043,2047 ****
          mset {ox oy} $oldpos
          foreach obj $@selection {
! 	    if {[[$obj class] inherit? Box]} {
  		$obj move [expr $x-$ox] [expr $y-$oy]
  	    } else {
--- 2043,2047 ----
          mset {ox oy} $oldpos
          foreach obj $@selection {
! 	    if {[[$obj class] <= Box]} {
  		$obj move [expr $x-$ox] [expr $y-$oy]
  	    } else {
***************
*** 2054,2058 ****
          if {[distance [list $x $y] $@click_at] > 5} {
  	  foreach obj $@selection {
! 		if {[[$obj class] inherit? Box]} {
  			$obj backupxy= [$obj xy]
  		} else {
--- 2054,2058 ----
          if {[distance [list $x $y] $@click_at] > 5} {
  	  foreach obj $@selection {
! 		if {[[$obj class] <= Box]} {
  			$obj backupxy= [$obj xy]
  		} else {
***************
*** 2097,2102 ****
  	    set class [$id class]
  	    if {[$self == $id]} {continue}
! 	    if {[$class inherit? Wire]} {return [list "wire" $id]}
! 	    if {[$class inherit? Box]} {
  	      mset {x1 y1 x2 y2} [$id bbox]
  	      set outs [$id noutlets]
--- 2097,2102 ----
  	    set class [$id class]
  	    if {[$self == $id]} {continue}
! 	    if {[$class <= Wire]} {return [list "wire" $id]}
! 	    if {[$class <= Box]} {
  	      mset {x1 y1 x2 y2} [$id bbox]
  	      set outs [$id noutlets]
***************
*** 2428,2433 ****
  			if {[regexp {^[xo]?[0-9a-f]{6,8}} [$c gettags $tag] id]} {
  				if {[$@canvas == $id]} {continue}
! 				if       {[[$id class] inherit?  Box]} {lappend objects $id
! 				} elseif {[[$id class] inherit? Wire]} {lappend wires   $id}
  			}
  		}
--- 2428,2433 ----
  			if {[regexp {^[xo]?[0-9a-f]{6,8}} [$c gettags $tag] id]} {
  				if {[$@canvas == $id]} {continue}
! 				if       {[[$id class] <=  Box]} {lappend objects $id
! 				} elseif {[[$id class] <= Wire]} {lappend wires   $id}
  			}
  		}
***************
*** 2548,2552 ****
  	move {
  	  foreach obj $@selection {
! 		if {![[$obj class] inherit? Box]} {
  			puts "Canvas unclick warning: trying to move non-Box explicitly"
  			continue
--- 2548,2552 ----
  	move {
  	  foreach obj $@selection {
! 		if {![[$obj class] <= Box]} {
  			puts "Canvas unclick warning: trying to move non-Box explicitly"
  			continue
***************
*** 2873,2877 ****
      foreach o $@selection {
  	mset {x1 y1} [$o xy]
! 	if {[[$o class] inherit? Box]} {
  		$o moveto [expr $x1+$dx] [expr $y1+$dy]
  	} else {
--- 2873,2877 ----
      foreach o $@selection {
  	mset {x1 y1} [$o xy]
! 	if {[[$o class] <= Box]} {
  		$o moveto [expr $x1+$dx] [expr $y1+$dy]
  	} else {

Index: objective.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v
retrieving revision 1.1.2.21
retrieving revision 1.1.2.22
diff -C2 -d -r1.1.2.21 -r1.1.2.22
*** objective.tcl	6 Sep 2006 00:20:23 -0000	1.1.2.21
--- objective.tcl	6 Sep 2006 00:51:27 -0000	1.1.2.22
***************
*** 142,146 ****
  class_new Class
  def Class subclasses {} {return $@subclasses}
! def Class inherit? {class} {
  	return [expr [lsearch [$self ancestors] $class]>=0]
  }
--- 142,146 ----
  class_new Class
  def Class subclasses {} {return $@subclasses}
! def Class <= {class} {
  	return [expr [lsearch [$self ancestors] $class]>=0]
  }





More information about the Pd-cvs mailing list