[mcclim-cvs] CVS mcclim/Goatee

[thenriksen]

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)))