Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16114
Modified Files: Tag: desiredata desire.tk Log Message: bit more on commandline editing
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.386 retrieving revision 1.1.2.600.2.387 diff -C2 -d -r1.1.2.600.2.386 -r1.1.2.600.2.387 *** desire.tk 17 Aug 2007 04:16:04 -0000 1.1.2.600.2.386 --- desire.tk 17 Aug 2007 06:56:04 -0000 1.1.2.600.2.387 *************** *** 2079,2082 **** --- 2079,2091 ---- }
+ def Canvas s+ {selection} { + set objs [$self parse_idx $selection]; set ids {} + foreach obj $objs { + set v [$@objects get $obj]; lappend ids $v + $self selection+= $v + } + $self selection_wire= [$self implicit_wires $ids] + } + def Canvas sw {from outlet to inlet} { set out_objs [$self parse_idx $from] *************** *** 3927,3933 ****
def Canvas outlet_expand {k outlet} {set reconnect [$self broken_wires o $k $inlet]} - def Canvas include_wires {} {$self find_include_wires [$@objectsel values]}
! def Canvas find_include_wires {objs} { set l {}; set h $@objects foreach obj $objs { --- 3936,3941 ----
def Canvas outlet_expand {k outlet} {set reconnect [$self broken_wires o $k $inlet]}
! def Canvas implicit_wires {objs} { set l {}; set h $@objects foreach obj $objs { *************** *** 3940,3944 **** } } ! puts [lsort -unique $l] }
--- 3948,3952 ---- } } ! return [lsort -unique $l] }