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