Lisp HUG Maillist Archive

popup-menu and dialog

Is it possible to use a popup-menu on a dialog ?
By the normal way the result is a completely disabled menu as you can see in
this example : 


(let* ((menu (make-instance 'capi:menu
                :items (loop for title in '("a" "b" "c")
                            collect (make-instance 'capi:menu-item
                                            :title title))))
       (pane (make-instance 'capi:pinboard-layout
                :pane-menu menu :visible-min-height 200)))
  (capi:popup-confirmer pane "Foo"))
  ;right-click or control-click to see the menu


Set the :modal initarg to nil doesn't change anything...

Any suggestion ?

Thanks

Denis


----------------------------------------------------
Denis Pousseur
6 clos du Drossart
1180 Bruxelles, Belgique

Mail :  denis.pousseur@compositeurs.be
Website : http://compositeurs.be
----------------------------------------------------



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