diff options
Diffstat (limited to 'examples/07-renderarea.lisp')
-rw-r--r-- | examples/07-renderarea.lisp | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/examples/07-renderarea.lisp b/examples/07-renderarea.lisp index 95a6e9d..5fc6f0e 100644 --- a/examples/07-renderarea.lisp +++ b/examples/07-renderarea.lisp @@ -33,27 +33,20 @@ (let ((cube (make-instance 'ww::image - :texture (ww::get-asset "GelatinousCube.png"))) - (cube-container - (make-instance - 'ww::container - :bottom 200 :top 400 - :left 200 :right 600))) + :texture (ww::get-asset "GelatinousCube.png")))) (setf (cube app) cube) (ww::add-handler app #'move-cube) (ww::add-handler cube #'clicked) - (setf (ww::x cube) 400 (ww::y cube) 300) (ww::scale-by cube 2.0) - (ww::add-unit cube-container cube) - (ww::add-unit app cube-container) - - (describe cube-container))) + (ww::add-unit cube) + (setf (ww::unit-region cube) + (make-instance 'ww::region :bottom 200 :top 400 :left 200 :right 600)))) (defun start () |