Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv18978/Goatee

Modified Files: editing-stream.lisp Log Message: Implement `erase-input-buffer' (somewhat, mostly so older CLIM programs won't hit a NO-APPLICABLE-METHOD error).

--- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:23:22 1.23 +++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/12/01 23:02:59 1.24 @@ -406,3 +406,8 @@ (defmethod redraw-input-buffer ((stream goatee-input-editing-mixin) &optional (start-position 0)) (declare (ignore start-position)) (redisplay-area (area stream))) + +(defmethod erase-input-buffer ((stream goatee-input-editing-mixin) + &optional (start-position 0)) + (declare (ignore start-position)) + (clear-output-record (area stream)))