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 }