Skip to content

Commit b1cee59

Browse files
authored
Make RENDER-ENABLED always T (#148)
Fixes disabled rendering after clicking for restarts.
1 parent 1a0ee51 commit b1cee59

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

src/sketch.lisp

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -51,6 +51,14 @@
5151
:documentation "The sketch associated with this window.")
5252
(%closing :initform nil :accessor window-%closing)))
5353

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+
5462
;;; Non trivial sketch writers
5563

5664
(defmacro define-sketch-writer (slot &body body)

0 commit comments

Comments
 (0)