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 }