Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1930
Modified Files: Tag: desiredata desire.tk Log Message: fix ctrl/shift click on making wire connections
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.77 retrieving revision 1.1.2.600.2.78 diff -C2 -d -r1.1.2.600.2.77 -r1.1.2.600.2.78 *** desire.tk 14 Dec 2006 00:53:16 -0000 1.1.2.600.2.77 --- desire.tk 14 Dec 2006 01:20:38 -0000 1.1.2.600.2.78 *************** *** 2434,2438 **** foreach wire $_($obj:wires2) { set find [lsearch $@wires $wire] ! if {$find != -1} {$self disconnect $wire} $wire delete } --- 2434,2438 ---- foreach wire $_($obj:wires2) { set find [lsearch $@wires $wire] ! if {$find != -1} {$self disconnect [$wire connects]} $wire delete } *************** *** 2441,2445 **** foreach x $@selection_wire { set find [lsearch $@wires $x] ! if {$find != -1} {$self disconnect $x} $x delete } --- 2441,2445 ---- foreach x $@selection_wire { set find [lsearch $@wires $x] ! if {$find != -1} {$self disconnect [$x connects]} $x delete } *************** *** 2989,2996 **** def Canvas disconnect {wire} { set @keynav_tab_sel "wire" ! mset {from outlet to inlet} [$wire connects] netsend [list .$self disconnect $from $outlet $to $inlet] ! #netsend [list .$self disconnect $wire] ! $@history add [list $self connect [$wire connects]] } def Canvas connect {wire} { --- 2989,2995 ---- def Canvas disconnect {wire} { set @keynav_tab_sel "wire" ! mset {from outlet to inlet} $wire netsend [list .$self disconnect $from $outlet $to $inlet] ! $@history add [list $self connect $wire] } def Canvas connect {wire} {