Re: Menu-bar menu command args

• To: clim@BBN.COM
• Subject: Re: Menu-bar menu command args
• From: Rick Duffy <duffy@everest.den.mmc.com>
• Date: Thu, 16 Jun 1994 10:06:48 -0700

>   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

• Prev: Menu-bar menu command args
• Next: question on table-formatting + graphics
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)