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