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 ;;;