[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