[PD-cvs] pd/src desire.tk,1.1.2.585,1.1.2.586

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
do_paste connect fix


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.585
retrieving revision 1.1.2.586
diff -C2 -d -r1.1.2.585 -r1.1.2.586
*** desire.tk	23 Nov 2006 16:01:03 -0000	1.1.2.585
--- desire.tk	23 Nov 2006 18:24:13 -0000	1.1.2.586
***************
*** 2711,2715 ****
  def Canvas do_paste {offset} {
  	pd .$self push
! 	pd [$::clipboard value]
  	pd #X pop 1
  }
--- 2711,2725 ----
  def Canvas do_paste {offset} {
  	pd .$self push
! 	foreach mess [pd_mess_split [$::clipboard value]] {
! 		if {[lindex $mess 1] == "connect"} {
! 			mset {from outlet to inlet} [lrange $mess 2 end]
! 			set count [llength $@children]
! 			set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! 			pd $mess2
! 			
! 		} else {
! 			pd $mess
! 		}
! 	}
  	pd #X pop 1
  }