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))))))