? remove-command-from-command-table-test.diff ? remove-command-from-command-table-test.diff2 Index: commands.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Tests/commands.lisp,v retrieving revision 1.2 diff -u -F^(def -r1.2 commands.lisp --- commands.lisp 30 Sep 2005 16:02:33 -0000 1.2 +++ commands.lisp 23 Mar 2006 13:09:04 -0000 @@ -8,7 +8,7 @@ (defpackage :clim-tests ;;; command tables (define-command-table no-menu-test-table) -(add-command-to-command-table '(com-test-command) 'no-menu-test-table +(add-command-to-command-table 'com-test-command 'no-menu-test-table :keystroke '(#\t)) (let ((count 0)) @@ -26,7 +26,7 @@ (define-command-table no-menu-test-table (define-command-table menu-test-table) -(add-command-to-command-table '(com-test-command) 'menu-test-table +(add-command-to-command-table 'com-test-command 'menu-test-table :keystroke '(#\u) :menu "Test")