From 1f4a2cd3cd588be88310ddf15186e967f0db2781 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 28 Jul 2022 12:50:14 -0500
Subject: [examples] canvas has focus on start
---
examples/14-canvas-paint.lisp | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/examples/14-canvas-paint.lisp b/examples/14-canvas-paint.lisp
index 737c12d..30db422 100644
--- a/examples/14-canvas-paint.lisp
+++ b/examples/14-canvas-paint.lisp
@@ -142,7 +142,8 @@
:pixel-width (canvas-size app)
:pixel-height (canvas-size app))))
(setf *last-draw-time* 0)
- (ww:add-unit canvas)))
+ (ww:add-unit canvas)
+ (ww:refocus-on canvas)))
--
cgit v1.2.3