[PD-cvs] pd/src desire.tk,1.1.2.600.2.387,1.1.2.600.2.388

[Mathieu Bouchard]

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}