aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/07-renderarea.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-22 11:58:16 -0500
committerColin Okay <colin@cicadas.surf>2022-07-22 11:58:16 -0500
commit00841605110612f6e7f3bbfc054ceff980bf25be (patch)
tree1f16b86d5c555eea22e60cb2d36f88682bd9023b /examples/07-renderarea.lisp
parent6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff)
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'examples/07-renderarea.lisp')
-rw-r--r--examples/07-renderarea.lisp15
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 ()