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

Diff of /mcclim/sheets.lisp

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

revision 1.37 by gilbert, Sun Nov 10 15:48:57 2002 UTC revision 1.38 by mikemac, Thu Nov 21 03:54:49 2002 UTC
# Line 693  that this might be different from the sh Line 693  that this might be different from the sh
693  (defmethod note-sheet-transformation-changed ((sheet mirrored-sheet-mixin))  (defmethod note-sheet-transformation-changed ((sheet mirrored-sheet-mixin))
694    (update-mirror-geometry sheet))    (update-mirror-geometry sheet))
695    
 (defmethod sheet-native-transformation ((sheet mirrored-sheet-mixin))  
   (with-slots (native-transformation) sheet  
     (unless native-transformation  
       (setf native-transformation  
             (compose-transformations  
              (invert-transformation  
               (%sheet-mirror-transformation sheet))  
              (compose-transformations  
               (sheet-native-transformation (sheet-parent sheet))  
               (sheet-transformation sheet)))))  
       native-transformation))  
   
696  (defmethod sheet-native-region ((sheet mirrored-sheet-mixin))  (defmethod sheet-native-region ((sheet mirrored-sheet-mixin))
697    (with-slots (native-region) sheet    (with-slots (native-region) sheet
698      (unless native-region      (unless native-region

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5