diff options
| -rw-r--r-- | src/interactive/button.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
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)) |