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