diff options
Diffstat (limited to 'catbird/ui.scm')
-rw-r--r-- | catbird/ui.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/catbird/ui.scm b/catbird/ui.scm index 326924c..dcac4e7 100644 --- a/catbird/ui.scm +++ b/catbird/ui.scm @@ -347,7 +347,8 @@ (fit-to-children button (padding button)) (show (background-up button))) -(define-method (on-boot (button <button>)) +(define-method (initialize (button <button>) initargs) + (next-method) (let ((bg-up (background-up button)) (bg-down (background-down button)) (bg-over (background-over button))) |