[add] text button example; button file to asd file

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 ()