diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-01 09:47:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-01 09:47:16 -0500 |
| commit | 867703d82c6e8b7a2b424845fcb30537061de45a (patch) | |
| tree | 1f3180042222e819a91dcc3c8aa2810bc69efc2c /src/interactive/button.lisp | |
| parent | f93d073f8cd06fbccb1285ae04c8b9d2d5c5a7b0 (diff) | |
[add] frameset class and an [exmaple] using it
Diffstat (limited to 'src/interactive/button.lisp')
| -rw-r--r-- | src/interactive/button.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/interactive/button.lisp b/src/interactive/button.lisp index 1c546ba..a885ef0 100644 --- a/src/interactive/button.lisp +++ b/src/interactive/button.lisp @@ -27,6 +27,12 @@ (when on-press (funcall on-press target))))) +(defmethod (setf closer-mop:slot-value-using-class) :before + (newval class (button button) slot) + (case (closer-mop:slot-definition-name slot) + ((up down bg) + (error "Swapping Button Faces Not Presently Supported")))) + (defmethod initialize-instance :after ((button button) &key) (add-handler button #'button-pressed) (add-handler button #'button-released) @@ -123,8 +129,6 @@ (setf (height up) newval (height down) newval))) - - (defun make-texture-button (up down &key pressed released) "UP and DOWN should be strings naming assets to use as the up and down images for the button." |