[mcclim-cvs] CVS update: mcclim/Experimental/menu-choose.lisp

[Timothy Moore]

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