diff options
author | Daniel Kochmański <daniel@turtleware.eu> | 2024-07-18 08:42:19 +0200 |
---|---|---|
committer | Daniel Kochmański <daniel@turtleware.eu> | 2024-09-17 09:02:28 +0200 |
commit | 4ae5e3b71d56afdb0ce910b4d34e01497ba8aa9c (patch) | |
tree | c7b9c2ea4e0df57e7e6fbad6056c508f659d256e | |
parent | 3ebbe9e15388f2281a83ad8432b6b60629beb883 (diff) |
core: rename the SHEET-TRANSFORMATION-MIXIN's slot TRANSFORMATION
TRANSFORMATION -> SHEET-TRANSFORMATION
I plan to mix a complete medium state into output recording streams, and that'd
lead to collapsing two slots into one, while they do mean different things.
-rw-r--r-- | Core/extended-output/output-record.lisp | 2 | ||||
-rw-r--r-- | Core/windowing/sheets.lisp | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Core/extended-output/output-record.lisp b/Core/extended-output/output-record.lisp index 0d67da44..2fa58ec4 100644 --- a/Core/extended-output/output-record.lisp +++ b/Core/extended-output/output-record.lisp @@ -1046,7 +1046,7 @@ the associated sheet can be determined." (x-offset 0) (y-offset 0)) (declare (ignore region)) (with-slots (,@slot-names) record - (let ((,medium (sheet-medium stream))) + (with-sheet-medium (,medium stream) ;; The medium graphics state is set up in :around methods. (with-translation (,medium x-offset y-offset) (,method-name ,medium ,@arg-names))))))))))) diff --git a/Core/windowing/sheets.lisp b/Core/windowing/sheets.lisp index 945c22eb..374a2074 100644 --- a/Core/windowing/sheets.lisp +++ b/Core/windowing/sheets.lisp @@ -610,9 +610,9 @@ +identity-transformation+) (defclass sheet-transformation-mixin () - ((transformation :initform +identity-transformation+ - :initarg :transformation - :accessor sheet-transformation))) + ((sheet-transformation :initform +identity-transformation+ + :initarg :transformation + :accessor sheet-transformation))) (defclass sheet-translation-mixin (sheet-transformation-mixin) ()) |