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