diff options
Diffstat (limited to 'examples/04-a-button.lisp')
| -rw-r--r-- | examples/04-a-button.lisp | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/examples/04-a-button.lisp b/examples/04-a-button.lisp index 85d2e83..be2ec24 100644 --- a/examples/04-a-button.lisp +++ b/examples/04-a-button.lisp @@ -9,16 +9,25 @@ (defclass app-with-buttons (ww::application) ()) (defmethod ww::boot ((app app-with-buttons)) - (let ((b - (ww::make-texture-button - "Fezghoul.png" "GelatinousCube.png" - :pressed (lambda (button) (format t "Button ~a was clicked!~%" button)) - :released (lambda (button) (format t "Button ~a was relased!~%" button ))))) + (let* ((b + (ww::make-texture-button + "Fezghoul.png" "GelatinousCube.png" + :pressed (lambda (button) (format t "Button ~a was clicked!~%" button)) + :released (lambda (button) (format t "Button ~a was relased!~%" button)))) + (font + (ww::get-asset "Ticketing.ttf")) + (b2 + (ww::make-text-button font "Press Me" "Relase Me"))) (setf (ww::x b) 100 - (ww::y b) 100) + (ww::y b) 100 + (ww::x b2) 400 + (ww::y b2) 100) + (ww::scale-by b 4.0) - + (ww::scale-by b2 3) + + (ww::add-unit app b2) (ww::add-unit app b))) (defun start () |