Lisp HUG Maillist Archive

menu-components in capi:define-interface

Hello,

Is it possible to define menu components in a CAPI interface the way menu-items are defined?
How do I do this?


Best Regards,
Camille


Re: menu-components in capi:define-interface

Camille Troillard <camille <at> osculator.net> writes:

> 
> Is it possible to define menu components in a CAPI interface the way menu-
items are defined?
> How do I do this?
> 


I do it like this:

(capi:define-interface foo ()
  ()
  (:panes
    (out capi:output-pane))
  (:menus
    (file "File"
      ((:component
         (("New" )
	      ("Open...")
	      ("Save" )
	      ("Close" )))
       ("Print")
       (:component
         ((:menu
            ()
	        :title "Recent Files")))
       ("Exit"
          :callback 'capi:quit-interface
          :callback-type :interface))))
  (:menu-bar file)
  (:layouts
    (main capi:simple-layout
	  '(out)
	  :default t))
  (:default-initargs
   :best-width 500
   :best-height 400))

Is that the kind of thing you mean?

Best,
Chris




Updated at: 2020-12-10 08:37 UTC