[PD-cvs] pd/src desire.tk,1.1.2.416,1.1.2.417

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
change getkey to def Menuable


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.416
retrieving revision 1.1.2.417
diff -C2 -d -r1.1.2.416 -r1.1.2.417
*** desire.tk	28 Aug 2006 22:16:19 -0000	1.1.2.416
--- desire.tk	28 Aug 2006 23:44:21 -0000	1.1.2.417
***************
*** 989,992 ****
--- 989,1000 ----
  }
  
+ def Menuable getkey {k} {
+ 	global accels
+ 	if {[dict exists $accels $k]} {
+ 		mset {class key} [split [dict get $accels $k] ":"]
+ 		if {$class != $@_class} {return ""} else {return $key}
+ 	}
+ }
+ 
  def* Menuable ctrlkey {key shift} {
      global accels
***************
*** 1145,1156 ****
  }
  
- def Thing getkey {k} {
- 	global accels
- 	if {[dict exists $accels $k]} {
- 		mset {class key} [split [dict get $accels $k] ":"]
- 		if {$class != $@_class} {return ""} else {return $key}
- 	}
- }
- 
  def View init {} {
  	super
--- 1153,1156 ----