:INHERIT-MENU in define-command-table

• Subject: :INHERIT-MENU in define-command-table
• From: Andrew Philpot <philpot@ptolemy.arc.nasa.gov>
• Date: Wed, 17 Nov 1993 18:45:54 GMT
• Keywords: inherit-menu
• Newsgroups: fi.clim
• Organization: NASA/ARC Information Sciences Division
• Sender: "usenet@ptolemy.arc.nasa.gov" <usenet@ptolemy.arc.nasa.gov>

CLIM2.0b, Allegro4.2b

Thanks for the help with my previous queries.

I'm now trying to use the :INHERIT-MENU item in define-command-table.

According to my printed documentation, its value should be a boolean:

  inherit-menu

  Normall, a menu does not inherit any menu items from its parents.
  When inherit-menu is t, menu items will be inherited.

In the demo code (graphics-editor), however, the value :KEYSTROKES
seems to be passed (implicitly - this is inside
define-application-frame).

 (:command-table 
  (graphics-editor 
   :inherit-from (accept-values-pane
		  graphics-editor-file-commands
		  graphics-editor-edit-commands
		  graphics-editor-option-commands)
   :inherit-menu :keystrokes
   :menu (("File" :menu graphics-editor-file-commands :mnemonic #\F)
	  ("Edit" :menu graphics-editor-edit-commands :mnemonic #\E )
	  ("Options" :menu graphics-editor-option-commands :mnemonic
		     #\O))))

My bet is that :KEYSTROKES will not be interpreted as "non-nil" and
thus equivalent to T in this case.

In any case, I can't seem to get :INHERIT-MENU T to work as I would
expect it naively to work, i.e., (at least logically) duplicate the
menu items into the child command table.  Behavior of a pulldown menu
tied to this comtab is identical with and without :INHERIT-MENU T.

Following the demo example, is it possible that :INHERIT-MENU should
be something like :MENU-ITEM?  Can someone provide me with the beneift
of his/her experience?

Thanks.

Andrew Philpot
Recom Technologies/NASA Ames
philpot@ptolemy.arc.nasa.gov

• Prev: Re: Right-click on gadgets
• Next: SCROLL-EXTENT, gf or regular fn.
• Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
• Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)