Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28692
Modified Files: Tag: desiredata desire.tk Log Message: fixed do_paste; select_all,deselect_all switch to edit mode
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.387 retrieving revision 1.1.2.600.2.388 diff -C2 -d -r1.1.2.600.2.387 -r1.1.2.600.2.388 *** desire.tk 17 Aug 2007 06:56:04 -0000 1.1.2.600.2.387 --- desire.tk 17 Aug 2007 07:32:04 -0000 1.1.2.600.2.388 *************** *** 3732,3747 **** netsend [list .$self "push"] foreach mess [pd_mess_split [$::clipboard value]] { set type [lindex $mess 1] switch $type { "" {} ! canvas {netsend $mess} connect { ! mset {from outlet to inlet} [lrange $mess 2 end] ! set mess2 [list #X connect $from $outlet $to $inlet] ! if {!$in} {netsend $mess2 [list $self new_wire_select]} ! } ! restore {incr in -1; netsend [$self paste_coords $mess $offset]} ! default {if {!$in} {netsend [$self paste_coords $mess $offset] \ ! [list $self new_object_copyselect]}} } } --- 3732,3746 ---- netsend [list .$self "push"] foreach mess [pd_mess_split [$::clipboard value]] { + puts "$in: $mess" set type [lindex $mess 1] + if {$type == "restore"} {incr in -1} + if {!$in} {set with [list $self new_object_copyselect]} else {set with ""} switch $type { "" {} ! canvas {incr in; netsend $mess} connect { ! if {$with != ""} {set with [list $self new_wire_select]} ! netsend $mess $with} ! default {netsend [$self paste_coords $mess $offset] $with} } } *************** *** 3793,3800 ****
def Canvas select_all {} { eval [concat [list $@objectsel reinit] [$@objects list]] eval [concat [list $@wiresel reinit] [ $@wires list]] } ! def Canvas deselect_all {} {$@objectsel clear; $@wiresel clear}
def Canvas popup_help {} {$::main class_browser} --- 3792,3804 ----
def Canvas select_all {} { + $self editmode= 1 eval [concat [list $@objectsel reinit] [$@objects list]] eval [concat [list $@wiresel reinit] [ $@wires list]] } ! def Canvas deselect_all {} { ! $self editmode= 1 ! $@objectsel clear ! $@wiresel clear ! }
def Canvas popup_help {} {$::main class_browser}