[PD-cvs] pd/src desire.tk,1.1.2.600.2.147,1.1.2.600.2.148

chunlee chunlee at users.sourceforge.net
Tue Jan 2 14:30:21 CET 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv665

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
more sensible pasting when subpatcherizing


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.147
retrieving revision 1.1.2.600.2.148
diff -C2 -d -r1.1.2.600.2.147 -r1.1.2.600.2.148
*** desire.tk	31 Dec 2006 18:49:19 -0000	1.1.2.600.2.147
--- desire.tk	2 Jan 2007 13:30:17 -0000	1.1.2.600.2.148
***************
*** 3295,3299 ****
  def Canvas new_object_subpatcherize {subpatch} {$subpatch subpatcherize_paste}
  def Canvas new_object_subpatcherize_inletconnect {inlet obj} {
- 	puts "           inlet::: $inlet"
  	if {[regexp {^[0-9]{1,8}i} $inlet idx]} {set idx [string trimright $idx i]}
  	if {[regexp {i[0-9]{1,8}} $inlet port]} {set port [string trimleft $port i]}
--- 3295,3298 ----
***************
*** 3397,3401 ****
  	set i 0
  	foreach outlet $::subpatcherize(outgoing_outlet) {
! 		netsend [list #X obj [expr $i*100] 200 outlet] \
  		    [list $self new_object_subpatcherize_outletconnect $outlet]
  		incr i
--- 3396,3402 ----
  	set i 0
  	foreach outlet $::subpatcherize(outgoing_outlet) {
! 		mset {xcoords ycoords} [$self clipboard_coords 0]
! 		set y [expr [lindex [lsort -increasing $ycoords] end] + 20]
! 		netsend [list #X obj [expr $i*100] $y outlet] \
  		    [list $self new_object_subpatcherize_outletconnect $outlet]
  		incr i
***************
*** 3407,3412 ****
  	set in 0
  	$self deselect_all
  	netsend [list .$self "push"]
! 	foreach mess [pd_mess_split [$::clipboard value]] {netsend $mess}
  	$self subpatcherize_makeports
  	netsend [list #X pop 1]
--- 3408,3424 ----
  	set in 0
  	$self deselect_all
+ 	mset {xcoords ycoords} [$self clipboard_coords 0]
+ 	set x [expr [lindex [lsort -increasing $xcoords] 0] - 50]
+ 	set y [expr [lindex [lsort -increasing $ycoords] 0] - 50]
  	netsend [list .$self "push"]
! 	foreach mess [pd_mess_split [$::clipboard value]] {
! 		set type [lindex $mess 1]
! 		if {$type != "" && $type != "canvas" && $type != "connect"} {
! 			set x1 [lindex $mess 2]
! 			set y1 [lindex $mess 3]
! 			set mess2 [lreplace $mess 2 3 [expr $x1 - $x] [expr $y1 -$y]]
! 			netsend $mess2
! 		} else {netsend $mess}
! 	}
  	$self subpatcherize_makeports
  	netsend [list #X pop 1]





More information about the Pd-cvs mailing list