[PD-cvs] pd/src desire.tk,1.1.2.600.2.288,1.1.2.600.2.289

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
added proc modekey


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.288
retrieving revision 1.1.2.600.2.289
diff -C2 -d -r1.1.2.600.2.288 -r1.1.2.600.2.289
*** desire.tk	6 Aug 2007 01:04:31 -0000	1.1.2.600.2.288
--- desire.tk	6 Aug 2007 02:27:48 -0000	1.1.2.600.2.289
***************
*** 543,546 ****
--- 543,554 ----
  }
  
+ proc modekey {k mode} {
+   set s ""
+   if {$mode&1} {append s Shift-}
+   if {$mode&4} {append s Control-}
+   if {$mode&8} {append s Alt-}
+   return $s$k
+ }
+ 
  # there are two palettes of 30 colours used in Pd
  # when placed in a 3*10 grid, the difference is that