[PD-cvs] pd/src desire.tk,1.1.2.600.2.150,1.1.2.600.2.151
chunlee
chunlee at users.sourceforge.net
Wed Jan 3 02:45:49 CET 2007
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
}
More information about the Pd-cvs
mailing list