aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/03-font-render.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-30 07:45:23 -0500
committerColin Okay <colin@cicadas.surf>2022-06-30 07:45:23 -0500
commit099c3f927c11fe7ae4d12933d6f72abc0b53e973 (patch)
treeb8d497bcffd98459e6b510d2b2541269218df6b5 /examples/03-font-render.lisp
parente0fc8f0f7a8b4756226cfb5e1c7581e411420228 (diff)
[modify] changed unit-width/height to just width/height. made defun
Diffstat (limited to 'examples/03-font-render.lisp')
-rw-r--r--examples/03-font-render.lisp8
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp
index e36dc44..bdd1c6e 100644
--- a/examples/03-font-render.lisp
+++ b/examples/03-font-render.lisp
@@ -16,7 +16,7 @@
(format t "Pressed a key, changing the color~%")
(setf (ww::text-color target) (random-text-color))
- (with-accessors ((x ww::x) (y ww::y) (w ww::unit-width) (h ww::unit-height)) target
+ (with-accessors ((x ww::x) (y ww::y) (w ww::width) (h ww::height)) target
(format t "x:~a,y:~a,width:~a,height:~a~%" x y w h))))
(ww::defhandler marquee
@@ -61,8 +61,8 @@
(ww::scale-by hello 3.0)
(setf
- (ww::x hello) (* 0.5 (- 800 (ww::unit-width hello)))
- (ww::y hello) (* 0.5 (- 600 (ww::unit-height hello))))
+ (ww::x hello) (* 0.5 (- 800 (ww::width hello)))
+ (ww::y hello) (* 0.5 (- 600 (ww::height hello))))
(ww::add-handler hello #'marquee)
(ww::add-handler hello #'change-text-color)
(ww::add-handler hello #'twirl-on-click)
@@ -71,7 +71,7 @@
(ww::scale-by instructions 2.0)
(setf
- (ww::x instructions) (* 0.5 (- 800 (ww::unit-width instructions))))
+ (ww::x instructions) (* 0.5 (- 800 (ww::width instructions))))
(ww::add-unit app instructions)))