[PD-cvs] pd/src desire.tk,1.1.2.600.2.316,1.1.2.600.2.317

[chunlee]

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}