[PD-cvs] pd/src desire.tk,1.1.2.600.2.301,1.1.2.600.2.302

Mathieu Bouchard matju at users.sourceforge.net
Tue Aug 7 09:12:19 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
readded selection=,selection+=,selection-=


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.301
retrieving revision 1.1.2.600.2.302
diff -C2 -d -r1.1.2.600.2.301 -r1.1.2.600.2.302
*** desire.tk	7 Aug 2007 05:58:13 -0000	1.1.2.600.2.301
--- desire.tk	7 Aug 2007 07:12:15 -0000	1.1.2.600.2.302
***************
*** 313,320 ****
  def Hash delete {} {$self clear; super}
  
! # set h [Hash new foo bar 1 2 3 4]
! # $h set hello world
! # puts keys=[$h keys]
! # puts list=[$h list]
  
  class_new Selection {Hash}
--- 313,323 ----
  def Hash delete {} {$self clear; super}
  
! if 0 {
! 	set h [Hash new foo bar 1 2 3 4]
! 	$h set hello world
! 	puts keys=[$h keys]
! 	puts values=[$h values]
! 	puts list=[$h list]
! }
  
  class_new Selection {Hash}
***************
*** 1346,1350 ****
  def View erase {} {$self item_delete}
  def View selected?  {}  {return $@selected?}
! def View selected?= {x} {set @selected? $x; $self changed} ;# only call this from selection= and such
  def View edit? {} {if {[info exists @edit]} {return $@edit} else {return 0}}
  def View select {state} {
--- 1349,1353 ----
  def View erase {} {$self item_delete}
  def View selected?  {}  {return $@selected?}
! def View selected?= {x} {set @selected? $x; $self changed} ;# this is for use by the Selection class only
  def View edit? {} {if {[info exists @edit]} {return $@edit} else {return 0}}
  def View select {state} {
***************
*** 2137,2140 ****
--- 2140,2148 ----
  }
  
+ def Canvas selection {} {$@objectsel values}
+ def Canvas selection= {objs} {$@objectsel clear; $self selection+= $objs}
+ def Canvas selection+= {objs} {foreach obj $objs {$@objectsel set [$obj index] $obj}}
+ def Canvas selection-= {objs} {foreach obj $objs {$@objectsel unset [$obj index]}}
+ 
  def Canvas Object  {} {$self new_object obj}
  def Canvas Message {} {$self new_object msg}
***************
*** 2714,2718 ****
  
  def Canvas objects_reinit {children} {
! 	$@objects reinit $children
  	$self changed children
  }
--- 2722,2726 ----
  
  def Canvas objects_reinit {children} {
! 	eval [concat [list $@objects reinit] $children]
  	$self changed children
  }
***************
*** 2767,2771 ****
  # should be only called from the server
  def Canvas wires_reinit {wires} {
! 	$@wires reinit $wires
  	$self changed wires
  }
--- 2775,2779 ----
  # should be only called from the server
  def Canvas wires_reinit {wires} {
! 	eval [concat [list $@wires reinit] $wires]
  	$self changed wires
  }





More information about the Pd-cvs mailing list