[PD-cvs] pd/src desire.tk,1.1.2.600.2.77,1.1.2.600.2.78
chunlee
chunlee at users.sourceforge.net
Thu Dec 14 02:20:42 CET 2006
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} {
More information about the Pd-cvs
mailing list