/[mcclim]/mcclim/repaint.lisp
ViewVC logotype

Diff of /mcclim/repaint.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by hefner1, Fri May 30 02:23:45 2003 UTC revision 1.9 by hefner1, Fri May 30 03:33:22 2003 UTC
# Line 36  Line 36 
36  (defmethod queue-repaint ((sheet basic-sheet) (event window-repaint-event))  (defmethod queue-repaint ((sheet basic-sheet) (event window-repaint-event))
37    (queue-event sheet event))    (queue-event sheet event))
38    
39  (defmethod handle-repaint ((sheet basic-sheet) region)  (defmethod handle-repaint ((sheet basic-sheet) region)
40    (declare (ignore region))    (with-bounding-rectangle* (x1 y1 x2 y2) region
41        (draw-rectangle* sheet x1 y1 x2 y2 :filled T :ink +background-ink+))
42    nil)    nil)
43    
44  (defmethod repaint-sheet ((sheet basic-sheet) region)  (defmethod repaint-sheet ((sheet basic-sheet) region)
45    ;; FIXME: Change things so the rectangle below is only drawn in response    ;; FIXME: Change things so the rectangle below is only drawn in response
46    ;;        to explicit repaint requests from the user, not exposes from X    ;;        to explicit repaint requests from the user, not exposes from X
   (with-slots (x1 x2 y1 y2) region  
     (draw-rectangle* sheet x1 y1 x2 y2 :filled T :ink +background-ink+))  
47    (map-over-sheets-overlapping-region #'(lambda (s)    (map-over-sheets-overlapping-region #'(lambda (s)
48                                            (handle-repaint s region))                                            (handle-repaint s region))
49                                        sheet                                        sheet

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5