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)