[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv30487/Drei

Modified Files:
	lisp-syntax-swine.lisp 
Log Message:
Use frame-manager-menu-choose and find-frame-manager instead of menu-choose when asking for symbol completion.

This permits Drei variants to use with-frame-manager to provide their
own look and feel for the menu.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp	2008/02/04 17:44:50	1.15
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp	2008/02/05 21:51:29	1.16
@@ -868,15 +868,20 @@
                t)
               (t (replace-symbol-at-mark
                   syntax mark
-                  (or (menu-choose (mapcar
-                                    #'(lambda (completion)
-                                        (if (listp completion)
-                                            (cons completion
-                                                  (first completion))
-                                            completion))
-                                    completions)
-                                   :label "Possible completions"
-                                   :scroll-bars :vertical)
+                  (or (when (or useful-token
+                                (accept 'boolean
+                                 :prompt "You are asking for a list of all exported symbols, proceed?"))
+                        (frame-manager-menu-choose
+                         (find-frame-manager)
+                         (mapcar
+                          #'(lambda (completion)
+                              (if (listp completion)
+                                  (cons completion
+                                        (first completion))
+                                  completion))
+                          completions)
+                         :label "Possible completions"
+                         :scroll-bars :vertical))
                       longest))
                  t))))))