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

Modified Files: esa.lisp Log Message: Improve the ESA minibuffers handling of arbitrary output.

--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2008/05/17 21:25:35 1.24 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2008/05/18 09:24:06 1.25 @@ -160,9 +160,7 @@ (let* ((sr (call-next-method)) (height (max (text-style-height (medium-merged-text-style medium) medium) - (if (message pane) - (bounding-rectangle-height (message pane)) - 0)))) + (bounding-rectangle-height (stream-output-history pane))))) (make-space-requirement :height height :min-height height :max-height height :width (space-requirement-width sr)