From 2c1cb6075ea5cf3544491a89a544d2dfc6071567 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 10:32:18 -0500 Subject: [add] text button example; button file to asd file --- examples/04-a-button.lisp | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) (limited to 'examples/04-a-button.lisp') 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 () -- cgit v1.2.3