Menu-bar menu command args

• To: duffy@everest.den.mmc.com
• Subject: Menu-bar menu command args
• From: John Aspinall <jga@harlequin.com>
• Date: Thu, 16 Jun 1994 12:08:07 -0400
• Cc: clim@BBN.COM
• In-Reply-To: "Rick D."'s message of Tue, 17 May 1994 14:16:45 -0700 <9405172014.AA22094@everest.den.mmc.com>

   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)

   (define-command (com-show-object :menu "Show" :command-table mycommands)
       ((object 'myobject :gesture :select))
     (show-object object))

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

Ditto.

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

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

• Prev: command name in a menu bar
• Next: Re: Menu-bar menu command args
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)