Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16065
Modified Files: Tag: desiredata desire.tk Log Message: copy macro to clipboard
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.316 retrieving revision 1.1.2.600.2.317 diff -C2 -d -r1.1.2.600.2.316 -r1.1.2.600.2.317 *** desire.tk 8 Aug 2007 05:03:20 -0000 1.1.2.600.2.316 --- desire.tk 8 Aug 2007 06:49:52 -0000 1.1.2.600.2.317 *************** *** 2404,2407 **** --- 2404,2422 ---- }
+ def Macro copy {} { + clipboard clear + set i 0 + foreach step $@list { + if {$i == [expr [llength $@list]-1]} {set comma ""} else {set comma ","} + mset {event widget X Y x y mode k kval} $step + switch $event { + KeyPress {clipboard append ${step}$comma} + ButtonPress {clipboard append ${step}$comma} + ButtonRelease {clipboard append ${step}$comma} + } + incr i + } + } +
set ::macro [Macro new] *************** *** 2416,2419 **** --- 2431,2437 ---- }
+ def Canvas macro_copy {} {$::macro copy} + + #-----------------------------------------------------------------------------------# class_new TextBox {Box}