Modeless dialogs

I think that the "Edit > Find..." floating dialog for the LispWorks 
editor is quite a neat trick.  I've been trying to duplicate it, but 
without success.

According to my reading of the documentation, the following code should 
work - I should get a floating dialog box upon invoking the menu item 
"Edit > Find...."  But including the initarg :modal nil seems to have 
no effect.  Have any other lisp-hug readers tried getting modeless 
dialogs to work?

==============================================


(capi:define-interface my-editor ()
   ()	
   (:panes
    (buffer
     capi:editor-pane
     :text
     (format nil "~{Line number ~A~%~}"
             (loop :for line :from 1 :to 100
                   :collect line))))
   (:menu-bar edit-menu)
   (:menus
    (edit-menu
     "Edit"
     (("Find..."
       :callback-type :none
       :callback #'(lambda ()
                     (capi:popup-confirmer
                      (make-instance 'capi:text-input-pane
                                     :title "Find")
                      nil :title "Find"
                      :modal nil))))))
   (:default-initargs
    :best-width 300
    :best-height 200
    :auto-menus nil))

(capi:display (make-instance 'my-editor))

Re: Modeless dialogs

On Monday 16 February 2004 04:26 pm, Asha Das wrote:
> According to my reading of the documentation, the following code should
> work - I should get a floating dialog box upon invoking the menu item
> "Edit > Find...."  But including the initarg :modal nil seems to have
> no effect.  Have any other lisp-hug readers tried getting modeless
> dialogs to work?

I ran your code under LWL and I got a floating dialog box.  What do you see?

pt

Re: Modeless dialogs

--- tarvydas <tarvydas@allstream.net> wrote:
> I ran your code under LWL and I got a floating
> dialog box.  What do you see?

I ran it under LWW pro 4.3.6 and when I select the
find item in the menu I get a modal dialog.

__________________________________
Do you Yahoo!?
Yahoo! Finance: Get your refund fast by filing online.
http://taxes.yahoo.com/filing.html