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)))))