Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv8095 Modified Files: menu.lisp Log Message: Oops, don't allow the menu bar to get smaller on resizes. * menu.lisp ((compose-space menu-bar)): Specify min-height. --- /project/mcclim/cvsroot/mcclim/menu.lisp 2006/05/13 00:03:41 1.35 +++ /project/mcclim/cvsroot/mcclim/menu.lisp 2006/05/13 00:19:36 1.36 @@ -390,8 +390,9 @@ (defmethod compose-space ((pane menu-bar) &key width height) (declare (ignore width height)) - (space-requirement+ (call-next-method) - (make-space-requirement :height 4 :max-height 4))) + (space-requirement+ + (call-next-method) + (make-space-requirement :height 4 :max-height 4 :min-height 4))) (defmethod box-layout-mixin/horizontally-allocate-space ((pane menu-bar) real-width real-height)