[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	panes.lisp 
Log Message:
Fixed the space-requirements of label-pane so that it no longer has a
max-width of the width of the actual label text. It still has a
max-height, however, I'm not sure whether that's correct.


--- /project/mcclim/cvsroot/mcclim/panes.lisp	2007/08/21 21:45:49	1.184
+++ /project/mcclim/cvsroot/mcclim/panes.lisp	2007/12/16 14:27:22	1.185
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.184 2007/08/21 21:45:49 thenriksen Exp $
+;;; $Id: panes.lisp,v 1.185 2007/12/16 14:27:22 thenriksen Exp $
 
 (in-package :clim-internals)
 
@@ -2334,7 +2334,7 @@
           (t
            (incf w m0)
            (incf w m0)
-           (let ((sr1 (make-space-requirement :width w :min-width w :max-width w
+           (let ((sr1 (make-space-requirement :width w :min-width w
                                               :height h :min-height h :max-height h)))
              (when (sheet-children pane)
                (let ((sr2 (compose-space (first (sheet-children pane)))))