[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	menu-choose.lisp 
Log Message:
Don't kill the menu-choose popup at any gesture.


--- /project/mcclim/cvsroot/mcclim/menu-choose.lisp	2008/02/05 13:44:33	1.22
+++ /project/mcclim/cvsroot/mcclim/menu-choose.lisp	2008/02/05 16:58:51	1.23
@@ -374,7 +374,7 @@
       (handler-case
           (with-input-context (`(or ,presentation-type blank-area) :override t)
               (object type event) 
-              (prog1 nil (read-gesture :stream menu))
+              (prog1 nil (loop (read-gesture :stream menu)))
             (blank-area nil)
             (t (values object event)))
         (abort-gesture () nil)))))