CLIM mail archive
Re: Menu-bar menu command args
> Date: Tue, 17 May 1994 14:16:45 -0700
> From: "Rick D." <firstname.lastname@example.org>
> ... ACL 4.2 final on a Sparc 10.
> (define-command-table mycommands)
>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)))
> (find-command-table 'mycommands))
>should print something like:
>"Show" ==> (COM-SHOW-OBJECT #:UNSUPPLIED-ARGUMENT)
Thanks for your reply John - but I found the problem elsewhere.
It turned out that deep within our CLOS hierarchy we defined
an object called COMMAND - which was wreaking subtle havoc with
the command menus. (We've since added checks to make sure we don't
redefine lisp classes.)
Main Index |