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'