[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.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/Drei/input-editor.lisp	2006/12/01 22:39:14	1.8
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2006/12/01 23:02:59	1.9
@@ -560,6 +560,13 @@
   ;; figure out what to redraw than to just redraw everything.
   (display-drei (drei-instance stream)))
 
+(defmethod erase-input-buffer ((stream drei-input-editing-mixin)
+                               &optional (start-position 0))
+  (declare (ignore start-position))
+  ;; Again, we ignore `start-position'. What is the big idea behind
+  ;; this function anyway?
+  (clear-output-record (drei-instance stream)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
 ;;; `Add-input-editor-command'