[mcclim-cvs] CVS update: mcclim/commands.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv24976

Modified Files:
	commands.lisp 
Log Message:
Commit untested patch from JQS for command-table-keystroke mapping.

Add untested tests for the problem.

People with non-mutant mcclim trees and a certain amount of free 
time would be well advised to run the tests.

Date: Fri Sep 30 18:01:31 2005
Author: crhodes

Index: mcclim/commands.lisp
diff -u mcclim/commands.lisp:1.54 mcclim/commands.lisp:1.55
--- mcclim/commands.lisp:1.54	Thu Aug 18 06:30:09 2005
+++ mcclim/commands.lisp	Fri Sep 30 18:01:30 2005
@@ -471,7 +471,8 @@
       (loop for gesture in keystroke-accelerators
 	    for item in keystroke-items
 	    do (funcall function
-			(command-menu-item-name item)
+                        (and (slot-boundp item 'menu-name)
+                             (command-menu-item-name item))
 			gesture
 			item)))))