From 73206ac142e34ce17195b1c3e538cf2e7a3f151d Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 6 Jul 2022 11:34:53 -0500 Subject: [bugfix] in accessor generation for button --- src/interactive/button.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/interactive/button.lisp') diff --git a/src/interactive/button.lisp b/src/interactive/button.lisp index 87779f0..08f7f37 100644 --- a/src/interactive/button.lisp +++ b/src/interactive/button.lisp @@ -72,8 +72,9 @@ collect `(defmethod (setf ,accessor-name) (newval (button button)) (setf (,accessor-name (button-up button)) newval - (,accessor-name (button-down button)) newval - (,accessor-name (button-bg button)) newval))))) + (,accessor-name (button-down button)) newval) + (when (button-bg button) + (setf (,accessor-name (button-bg button)) newval)))))) `(progn ,@defs)))) (def-accessors x y scale-x scale-y width height rotation)) -- cgit v1.2.3