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

Diff of /mcclim/recording.lisp

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

revision 1.124 by tmoore, Fri Mar 10 21:58:13 2006 UTC revision 1.125 by tmoore, Wed Mar 29 10:43:37 2006 UTC
# Line 844  the associated sheet can be determined." Line 844  the associated sheet can be determined."
844                        (>= cx2 old-max-x) (>= cy2 old-max-y))                        (>= cx2 old-max-x) (>= cy2 old-max-y))
845                   (values (min cx1 ox1) (min cy1 oy1)                   (values (min cx1 ox1) (min cy1 oy1)
846                           (max cx2 ox2) (max cy2 oy2)))                           (max cx2 ox2) (max cy2 oy2)))
847                  (T (%tree-recompute-extent* record)))                  (t (%tree-recompute-extent* record)))
848          ;; XXX banish x, y          ;; XXX banish x, y
849          (with-slots (x y)          (with-slots (x y)
850              record              record
# Line 2337  according to the flags RECORD and DRAW." Line 2337  according to the flags RECORD and DRAW."
2337                        (bounding-rectangle region))))                        (bounding-rectangle region))))
2338          (with-bounding-rectangle* (x1 y1 x2 y2) region          (with-bounding-rectangle* (x1 y1 x2 y2) region
2339            (with-output-recording-options (stream :record nil)            (with-output-recording-options (stream :record nil)
2340              (draw-rectangle* stream x1 y1 x2 y2 :filled T :ink +background-ink+)))              (draw-rectangle* stream x1 y1 x2 y2 :filled t :ink +background-ink+)))
2341          (stream-replay stream region)))))          (stream-replay stream region)))))
2342    
2343  (defmethod handle-repaint ((stream output-recording-stream) region)  (defmethod handle-repaint ((stream output-recording-stream) region)

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125

  ViewVC Help
Powered by ViewVC 1.1.5