CLIM mail archive

[Prev][Next][Index][Thread]

Re: Menu-bar menu command args



>   Date: Tue, 17 May 1994 14:16:45 -0700
>   From: "Rick D." <duffy@everest.den.mmc.com>
>
>    ... 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:
>
> (map-over-command-table-menu-items
>   #'(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)
>
>John

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

... Rick



Main Index | Thread Index