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

Modified Files: Tag: desiredata desire.tk Log Message: added the selection_wire methods back

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.303 retrieving revision 1.1.2.600.2.304 diff -C2 -d -r1.1.2.600.2.303 -r1.1.2.600.2.304 *** desire.tk 7 Aug 2007 07:15:01 -0000 1.1.2.600.2.303 --- desire.tk 7 Aug 2007 07:27:27 -0000 1.1.2.600.2.304 *************** *** 2144,2147 **** --- 2144,2151 ---- 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 selection_wire {} {$@wiresel values} + def Canvas selection_wire= {objs} {$@wiresel clear; $self selection_wire+= $objs} + def Canvas selection_wire+= {objs} {foreach obj $objs {$@wiresel set [$obj index] $obj}} + def Canvas selection_wire-= {objs} {foreach obj $objs {$@wiresel unset [$obj index]}}

def Canvas Object {} {$self new_object obj}