Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7638
Modified Files: Tag: devel_0_39 desire.tk Log Message: trivial commit for cosmetics and some ident correction
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.419 retrieving revision 1.1.2.420 diff -C2 -d -r1.1.2.419 -r1.1.2.420 *** desire.tk 29 Aug 2006 11:58:56 -0000 1.1.2.419 --- desire.tk 29 Aug 2006 14:21:11 -0000 1.1.2.420 *************** *** 536,539 **** --- 536,540 ---- set look(SelRect:rect) #ff12ff set look(Wire:fg) #888888 + set look(Wire:dspfg) #890098 set look(Wire:fg2) #ee0000 set look(Wire:thick) 1 *************** *** 3019,3036 ****
def Wire init {canvas from outlet to inlet} { [...2922 lines suppressed...] ! } }
--- 6239,6254 ----
def Wire deconstruct {{selcanvas ""}} { ! global obj_index_sel ! # the selcanvas system could be abstracted out using an ObjectList such that ! # Canvas<ObjectList and $selection class == ObjectList ! if {$selcanvas == ""} { ! list #X connect \ ! [$@canvas index $@obj1] $@port1 \ ! [$@canvas index $@obj2] $@port2 ! } { ! list #X connect \ ! $obj_index_sel($@canvas:$@obj1) $@port1 \ ! $obj_index_sel($@canvas:$@obj2) $@port2 ! } }