From 749a5a306deacd5c481ecc4c53b7f03178c3e335 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 10:05:21 -0500 Subject: [add] button unit and [example]; [modify] scale-by is now defun --- examples/04-a-button.lisp | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 examples/04-a-button.lisp (limited to 'examples/04-a-button.lisp') diff --git a/examples/04-a-button.lisp b/examples/04-a-button.lisp new file mode 100644 index 0000000..85d2e83 --- /dev/null +++ b/examples/04-a-button.lisp @@ -0,0 +1,33 @@ +;;;; examples/04-a-button.lisp + +(defpackage #:ww.example/4 + (:use #:cl) + (:export #:start)) + +(in-package #:ww.example/4) + +(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 ))))) + (setf (ww::x b) 100 + (ww::y b) 100) + + (ww::scale-by b 4.0) + + (ww::add-unit app b))) + +(defun start () + (ww::start (make-instance + 'app-with-buttons + :fps 30 + :width 800 + :height 600 + :title "Wheelwork Example: A Button" + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))))) -- cgit v1.2.3