From 00841605110612f6e7f3bbfc054ceff980bf25be Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 22 Jul 2022 11:58:16 -0500 Subject: [version] [refactor] [redesign] removed containers --- examples/01-click-and-drag-image.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/01-click-and-drag-image.lisp') diff --git a/examples/01-click-and-drag-image.lisp b/examples/01-click-and-drag-image.lisp index 8793fae..e895d24 100644 --- a/examples/01-click-and-drag-image.lisp +++ b/examples/01-click-and-drag-image.lisp @@ -11,14 +11,14 @@ (ww::defhandler dragging-unit (ww::on-mousemotion (app x y) (let ((unit - (first (ww:container-units app)))) + (first (ww::application-scene app)))) (setf (ww:x unit) x (ww:y unit) y)))) (ww:defhandler start-drag (ww:on-mousedown (target) (ww::add-handler - (ww::unit-container target) + ww::*application* #'dragging-unit))) (ww:defhandler stop-drag @@ -33,7 +33,7 @@ (describe (ww::model-matrix bm)) (describe bm) (describe app) - (ww::add-unit app bm) + (ww::add-unit bm) (ww::add-handler bm #'start-drag) (ww::add-handler app #'stop-drag) (format t "CLICK AND DRAG THE GHOUL~%") -- cgit v1.2.3