[mcclim-cvs] CVS mcclim

[dlichteblau]

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)