[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
When adding input-editor typeout, also move down output records that
only partially overlap with the typeout. This makes excessively
grotesque and highly implementor-unfriendly prompts (like the one in,
say, Beirc) move down as well.

Remaining bugs seem to be about miscalculating the bounding rectangle
of output borders.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/01 00:23:36	1.35
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/01 16:50:31	1.36
@@ -771,7 +771,7 @@
       (map-over-output-records-overlapping-region
        #'(lambda (record)
            (multiple-value-bind (record-x record-y) (output-record-position record)
-             (when (>= record-y y)
+             (when (>= (+ record-y (bounding-rectangle-height record)) y)
                (setf (output-record-position record)
                      (values record-x (+ record-y delta-y))))))
        (stream-output-history sheet)