diff options
| -rw-r--r-- | examples/01-click-and-drag-image.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/01-click-and-drag-image.lisp b/examples/01-click-and-drag-image.lisp index d13bce3..8793fae 100644 --- a/examples/01-click-and-drag-image.lisp +++ b/examples/01-click-and-drag-image.lisp @@ -1,4 +1,4 @@ -;;; 01-image-display.lisp +;;; 01-image-display-and-drag.lisp (defpackage #:ww.examples/1 (:use #:cl) @@ -6,7 +6,7 @@ (in-package :ww.examples/1) -(defclass image-display (ww::application ) ()) +(defclass image-display-and-drag (ww::application ) ()) (ww::defhandler dragging-unit (ww::on-mousemotion (app x y) @@ -26,7 +26,7 @@ (ww::remove-handler app #'dragging-unit))) -(defmethod ww::boot ((app image-display)) +(defmethod ww::boot ((app image-display-and-drag)) (let ((bm (make-instance 'ww::image :texture (ww::get-asset "Fezghoul.png")))) @@ -43,7 +43,7 @@ (defun start () (ww::start (make-instance - 'image-display + 'image-display-and-drag :mouse-button-events-bubble-p t :mouse-motion-events-bubble-p t :asset-root (merge-pathnames |