Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19249
Modified Files: Tag: desiredata desire.tk Log Message: small fixes on wires
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.150 retrieving revision 1.1.2.600.2.151 diff -C2 -d -r1.1.2.600.2.150 -r1.1.2.600.2.151 *** desire.tk 3 Jan 2007 00:34:30 -0000 1.1.2.600.2.150 --- desire.tk 3 Jan 2007 01:45:45 -0000 1.1.2.600.2.151 *************** *** 1991,1995 **** $self populate_menu edit { undo redo {} ! cut copy paste duplicate select_all {} text_editor tidy_up {}} $self populate_menu find { --- 1991,1995 ---- $self populate_menu edit { undo redo {} ! cut copy paste duplicate select_all subpatcherize {} text_editor tidy_up {}} $self populate_menu find { *************** *** 2490,2494 ****
def Canvas wires {} {return $@wires} ! def Canvas delete_selection {} { if {![llength $@selection] && ![llength $@selection_wire]} {return} --- 2490,2497 ----
def Canvas wires {} {return $@wires} ! def Canvas wires-= {wire} { ! set idx [lsearch $@wires $wire] ! set @wires [lreplace $@wires $idx $idx] ! } def Canvas delete_selection {} { if {![llength $@selection] && ![llength $@selection_wire]} {return} *************** *** 3206,3209 **** --- 3209,3213 ---- }
+ def Canvas disconnect {wire} { set @keynav_tab_sel "wire" *************** *** 3262,3265 **** --- 3266,3270 ---- } } + $wire delete } } *************** *** 3402,3406 **** } } ! def Canvas subpatcherize_paste {} { set subpatcherize(paste) 1 --- 3407,3411 ---- } } ! def Canvas subpatcherize_paste {} { set subpatcherize(paste) 1 *************** *** 4571,4574 **** --- 4576,4580 ---- $@obj1 delete_wire $self $@obj2 delete_wire $self + $@canvas wires-= $self super }