diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
| commit | 00841605110612f6e7f3bbfc054ceff980bf25be (patch) | |
| tree | 1f16b86d5c555eea22e60cb2d36f88682bd9023b /examples/01-click-and-drag-image.lisp | |
| parent | 6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff) | |
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'examples/01-click-and-drag-image.lisp')
| -rw-r--r-- | examples/01-click-and-drag-image.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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~%") |