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

Diff of /mcclim/medium.lisp

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

revision 1.11 by boninfan, Mon Jul 23 10:49:43 2001 UTC revision 1.12 by boninfan, Wed Jul 25 13:44:36 2001 UTC
# Line 59  Line 59 
59                         :initform (make-text-style :fix :roman :normal)                         :initform (make-text-style :fix :roman :normal)
60                         :accessor medium-default-text-style)                         :accessor medium-default-text-style)
61     (sheet :initarg :sheet     (sheet :initarg :sheet
62              :initform nil ; this means that medium is not linked to a sheet
63            :accessor medium-sheet)            :accessor medium-sheet)
64     ))     ))
65    
# Line 133  Line 134 
134    
135  (defmethod (setf medium-clipping-region) :after (clipping-region (medium medium))  (defmethod (setf medium-clipping-region) :after (clipping-region (medium medium))
136    (declare (ignore clipping-region))    (declare (ignore clipping-region))
137    (medium-invalidate-cached-device-region (medium-sheet medium)))    (when (medium-sheet medium)
138        (medium-invalidate-cached-device-region (medium-sheet medium))))
139    
140  (defmethod medium-device-region :before ((medium medium))  (defmethod medium-device-region :before ((medium medium))
141    (with-slots (device-region) medium    (with-slots (device-region) medium
# Line 163  Line 165 
165    
166  (defmethod (setf medium-transformation) :after (transformation (medium medium))  (defmethod (setf medium-transformation) :after (transformation (medium medium))
167    (declare (ignore transformation))    (declare (ignore transformation))
168    (medium-invalidate-cached-device-transformation (medium-sheet medium)))    (when (medium-sheet medium)
169        (medium-invalidate-cached-device-transformation (medium-sheet medium))))
170    
171  (defmethod medium-device-transformation :before ((medium medium))  (defmethod medium-device-transformation :before ((medium medium))
172    (with-slots (device-transformation) medium    (with-slots (device-transformation) medium

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5