[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	recording.lisp 
Log Message:
Eliminate %handle-repaint and repaint-sheet hack. I don't think the 
warnings about wholine infinite recursion are applicable anymore,
either.



--- /project/mcclim/cvsroot/mcclim/recording.lisp	2008/02/02 19:03:00	1.138
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2008/02/03 09:25:42	1.139
@@ -2313,15 +2313,11 @@
   (with-output-recording-options (stream :record nil)
     (call-next-method)))
 
-;;; Helper function to break some infinite recursion issues with
-;;; handle-repaint vs. redisplay-frame-pane (in the Listener, that
-;;; is; is this the right place for the fix? )
-
 ;;; FIXME: Change things so the rectangle below is only drawn in response
 ;;;        to explicit repaint requests from the user, not exposes from X
 ;;; FIXME: Use DRAW-DESIGN*, that is fix DRAW-DESIGN*.
 
-(defun %handle-repaint (stream region)
+(defmethod handle-repaint ((stream output-recording-stream) region)
   (when (output-recording-stream-p stream)
     (unless (region-equal region +nowhere+)                    ; ignore repaint requests for +nowhere+
       (let ((region (if (region-equal region +everywhere+)
@@ -2332,8 +2328,6 @@
 	    (draw-rectangle* stream x1 y1 x2 y2 :filled t :ink +background-ink+)))
 	(stream-replay stream region)))))
 
-(defmethod handle-repaint ((stream output-recording-stream) region)
-  (%handle-repaint stream region))
 
 (defmethod scroll-extent :around ((stream output-recording-stream) x y)
   (declare (ignore x y))
@@ -2397,14 +2391,6 @@
 		(setf (stream-cursor-position stream) (values cx cy)))
 	    record))))))
 
-
-
-(defmethod repaint-sheet ((sheet output-recording-stream) region)
-  (map-over-sheets-overlapping-region #'(lambda (s)
-					  (%handle-repaint s region))
-				      sheet
-				      region))
-
 ;;; ----------------------------------------------------------------------------
 ;;;  Baseline
 ;;;