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

Diff of /mcclim/sheets.lisp

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

revision 1.53 by dlichteblau, Thu Nov 9 20:24:20 2006 UTC revision 1.54 by ahefner, Tue Mar 20 01:43:55 2007 UTC
# Line 84  Line 84 
84             :initform (make-bounding-rectangle 0 0 100 100)             :initform (make-bounding-rectangle 0 0 100 100)
85             :accessor sheet-region)             :accessor sheet-region)
86     (native-transformation :type (or null transformation)     (native-transformation :type (or null transformation)
87                            :initform nil                            ;:initform nil
88                              :initform +identity-transformation+
89                            :writer %%set-sheet-native-transformation                            :writer %%set-sheet-native-transformation
90                            :reader %%sheet-native-transformation)                            :reader %%sheet-native-transformation)
91     (native-region :type (or null region)     (native-region :type (or null region)
# Line 95  Line 96 
96                    :initform nil)                    :initform nil)
97     (pointer-cursor :accessor sheet-pointer-cursor     (pointer-cursor :accessor sheet-pointer-cursor
98                     :initarg  :pointer-cursor                     :initarg  :pointer-cursor
99                     :initform :default)                     :initform :default)
100     (enabled-p :type boolean     (enabled-p :type boolean
101                :initarg :enabled-p                :initarg :enabled-p
102                :initform t                :initform t

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

  ViewVC Help
Powered by ViewVC 1.1.5