From 11f8d6dad0078464ccbc29cab57908a0923ca447 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 27 Jul 2022 12:07:10 -0500 Subject: [refactor] represent scene as a vector; [refactor] shared text shader --- examples/01-click-and-drag-image.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/01-click-and-drag-image.lisp') 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)))) -- cgit v1.2.3