diff options
Diffstat (limited to 'examples/01-click-and-drag-image.lisp')
| -rw-r--r-- | examples/01-click-and-drag-image.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/01-click-and-drag-image.lisp b/examples/01-click-and-drag-image.lisp index e895d24..da6a12f 100644 --- a/examples/01-click-and-drag-image.lisp +++ b/examples/01-click-and-drag-image.lisp @@ -11,7 +11,7 @@ (ww::defhandler dragging-unit (ww::on-mousemotion (app x y) (let ((unit - (first (ww::application-scene app)))) + (elt (ww::application-scene app) 0))) (setf (ww:x unit) x (ww:y unit) y)))) |