blob: 85d2e8318631756dcb33c354b82845cf835ff185 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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)))))
|
