diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-19 06:46:00 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-19 06:46:00 -0500 |
| commit | ac967b3befc75c575a4191728469ee5c161dcde5 (patch) | |
| tree | 78e066360f984bc3ce9aebf2009145962b4cf21a /examples/01-click-and-drag-image.lisp | |
| parent | 3c1df8b7807f772887dc3d85725059c4dbe75cca (diff) | |
[rename] image-display image-display-and-drag
Diffstat (limited to 'examples/01-click-and-drag-image.lisp')
| -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 |