[mcclim-cvs] CVS mcclim

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