[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
Added implementions of `redraw-input-buffer'. We ignore the
`start-offset' argument, though.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2006/11/18 20:59:28	1.5
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2006/11/22 14:15:53	1.6
@@ -496,6 +496,13 @@
     (update-syntax (buffer drei) (syntax (buffer drei)))
     (display-drei drei)))
 
+(defmethod redraw-input-buffer ((stream drei-input-editing-mixin)
+                                &optional (start-position 0))
+  (declare (ignore start-position))
+  ;; We ignore `start-position', because it would be more work to
+  ;; figure out what to redraw than to just redraw everything.
+  (display-drei (drei-instance stream)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
 ;;; `Add-input-editor-command'