[mcclim-cvs] CVS mcclim/ESA

[thenriksen]

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)