From ac967b3befc75c575a4191728469ee5c161dcde5 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 19 Jul 2022 06:46:00 -0500 Subject: [rename] image-display image-display-and-drag --- examples/01-click-and-drag-image.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') 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 -- cgit v1.2.3