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

Diff of /mcclim/pixmap.lisp

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

revision 1.3 by rouanet, Sun Oct 14 15:35:08 2001 UTC revision 1.4 by brian, Sun Apr 21 12:41:14 2002 UTC
# Line 42  Line 42 
42     (region :initform nil :accessor sheet-region)     (region :initform nil :accessor sheet-region)
43     ))     ))
44    
45    ; added this. CHECKME -- BTS
46    (defmethod (setf %sheet-medium) (value (pixmap mirrored-pixmap))
47      (setf (slot-value pixmap 'medium) value))
48    
49    (defmethod invalidate-cached-transformations ((sheet mirrored-pixmap))
50      (values))
51    
52    (defmethod invalidate-cached-regions ((sheet mirrored-pixmap))
53      (values))
54    
55    ; BTS stopped adding. ^-- CHECKME
56    
57  (defmethod initialize-instance :after ((pixmap mirrored-pixmap) &rest args)  (defmethod initialize-instance :after ((pixmap mirrored-pixmap) &rest args)
58    (declare (ignore args))    (declare (ignore args))
59    (with-slots (width height region) pixmap    (with-slots (width height region) pixmap
# Line 54  Line 66 
66    (port-allocate-pixmap (port sheet) sheet width height))    (port-allocate-pixmap (port sheet) sheet width height))
67    
68  (defmethod deallocate-pixmap ((pixmap pixmap))  (defmethod deallocate-pixmap ((pixmap pixmap))
69    (port-deallocate-pixmap (port (pixmap-sheet pixmap)) pixmap))    (port-deallocate-pixmap (port (medium-sheet pixmap)) pixmap))
70    
71  (defmethod sheet-native-transformation ((pixmap mirrored-pixmap))  (defmethod sheet-native-transformation ((pixmap mirrored-pixmap))
72    +identity-transformation+)    +identity-transformation+)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5