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

Diff of /mcclim/repaint.lisp

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

revision 1.7 by mikemac, Fri Mar 21 21:36:59 2003 UTC revision 1.8 by hefner1, Fri May 30 02:23:45 2003 UTC
# Line 41  Line 41 
41    nil)    nil)
42    
43  (defmethod repaint-sheet ((sheet basic-sheet) region)  (defmethod repaint-sheet ((sheet basic-sheet) region)
44      ;; FIXME: Change things so the rectangle below is only drawn in response
45      ;;        to explicit repaint requests from the user, not exposes from X
46      (with-slots (x1 x2 y1 y2) region
47        (draw-rectangle* sheet x1 y1 x2 y2 :filled T :ink +background-ink+))
48    (map-over-sheets-overlapping-region #'(lambda (s)    (map-over-sheets-overlapping-region #'(lambda (s)
49                                            (handle-repaint s region))                                            (handle-repaint s region))
50                                        sheet                                        sheet

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

  ViewVC Help
Powered by ViewVC 1.1.5