CLIM mail archive
Menu-bar menu command args
Date: Tue, 17 May 1994 14:16:45 -0700
From: "Rick D." <email@example.com>
... ACL 4.2 final on a Sparc 10.
(define-command (com-show-object :menu "Show" :command-table mycommands)
((object 'myobject :gesture :select))
and then in the define-application-frame
(:command-table (myframe :inherit-from (mycommands) :inherit-menu t))
Note extra parens.
But if I change this last bit to:
(:command-table (myframe :inherit-from (mycommands)
:menu (("Mymenu" :menu mycommands))))
and I then select the command from the menu, I get no prompt (even with an
interactor pane present), and CLIM simply *beeps* at me (but I see no other
This works for me, in LispWorks 3.2, CLIM 2 Beta 7. I suggest you
look at exactly what the menu item thinks it has as a value.
Something of the sort:
#'(lambda (name key item)
(let ((item-value (command-menu-item-value item)))
(format t "~S ==> ~S" name item-value)))
should print something like:
"Show" ==> (COM-SHOW-OBJECT #:UNSUPPLIED-ARGUMENT)
Main Index |