diff options
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~%") |