[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	text-editor-gadget.lisp 
Log Message:
A text field is single-line (in display), but it does not have an
opinion about its maximum width. Implemented this behavior.


--- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp	2006/11/08 01:18:22	1.1
+++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp	2006/11/10 18:22:04	1.2
@@ -54,9 +54,8 @@
           (w  (text-size medium (gadget-value pane))))
       (let ((width w)
             (height (+ as ds)))
-        (make-space-requirement :width width :height height
-                                :max-width width :max-height height
-                                :min-width width :min-height height)))))
+        (make-space-requirement :height height :max-height height :min-height height
+                                :min-width width :width width)))))
 
 (defmethod allocate-space ((pane text-field-pane) w h)
   (resize-sheet pane w h))