Update of /project/mcclim/cvsroot/mcclim/Experimental In directory common-lisp.net:/tmp/cvs-serv31595/Experimental Modified Files: menu-choose.lisp Log Message: Hammered on with-room-for-graphics. It should now leave the cursor in the right place and do the right thing with respect to recording options. Changed with-drawing-options to not rebind its medium argument at all. Added :label and :scroll-bars arguments to with-menu which are currently ignored. Date: Wed Feb 2 12:34:02 2005 Author: tmoore Index: mcclim/Experimental/menu-choose.lisp diff -u mcclim/Experimental/menu-choose.lisp:1.16 mcclim/Experimental/menu-choose.lisp:1.17 --- mcclim/Experimental/menu-choose.lisp:1.16 Wed Jan 26 05:29:06 2005 +++ mcclim/Experimental/menu-choose.lisp Wed Feb 2 12:34:02 2005 @@ -137,7 +137,7 @@ (defmacro with-menu ((menu &optional associated-window - &key (deexpose t)) + &key (deexpose t) label scroll-bars) &body body) (check-type menu symbol) (with-gensyms (with-menu-cont) @@ -146,10 +146,13 @@ (declare (dynamic-extent #',with-menu-cont)) (invoke-with-menu #',with-menu-cont ,associated-window ; XXX - ',deexpose)))) ; XXX!!! + ',deexpose ; XXX!!! + ,label + ,scroll-bars)))) -(defun invoke-with-menu (continuation associated-window deexpose) - (declare (ignore deexpose)) ; FIXME!!! +(defun invoke-with-menu (continuation associated-window deexpose + label scroll-bars) + (declare (ignore deexpose label scroll-bars)) ; FIXME!!! (let* ((associated-frame (if associated-window (pane-frame associated-window) *application-frame*))