[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
More input-editor redisplay simplications.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/16 13:12:40	1.38
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/16 15:19:30	1.39
@@ -972,19 +972,15 @@
   (declare (ignore x-offset y-offset region))
   (letf (((stream-cursor-position stream) (values-list (input-editor-position drei))))
     (invalidate-all-strokes (view drei))
-    (display-drei-view-contents stream (view drei))))
-
-(defmethod replay-output-record :after ((drei drei-area) (stream extended-output-stream) &optional
-                                        (x-offset 0) (y-offset 0) (region +everywhere+))
-  (declare (ignore x-offset y-offset region))
+    (display-drei-view-contents stream (view drei)))
   (dolist (cursor (cursors drei))
     (replay cursor stream)))
 
-(defmethod replay-output-record :before ((cursor drei-cursor) stream &optional
-                                         (x-offset 0) (y-offset 0) (region +everywhere+))
+(defmethod replay-output-record ((cursor drei-cursor) stream &optional
+                                 (x-offset 0) (y-offset 0) (region +everywhere+))
   (declare (ignore x-offset y-offset region))
   (clear-output-record cursor)
-  (with-output-recording-options (stream :record t :draw nil)
+  (with-output-recording-options (stream :record nil :draw t)
     (when (active cursor)
       (display-drei-view-cursor stream (view cursor) cursor))))