We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 1a0ee51 commit b1cee59Copy full SHA for b1cee59
src/sketch.lisp
@@ -51,6 +51,14 @@
51
:documentation "The sketch associated with this window.")
52
(%closing :initform nil :accessor window-%closing)))
53
54
+;; Always enabled
55
+(defmethod kit.sdl2:render-enabled ((window sketch-window))
56
+ t)
57
+
58
+;; So don't do anything on SETF as well
59
+(defmethod (setf kit.sdl2:render-enabled) (value (window sketch-window))
60
+ value)
61
62
;;; Non trivial sketch writers
63
64
(defmacro define-sketch-writer (slot &body body)
0 commit comments