From 1f4a2cd3cd588be88310ddf15186e967f0db2781 Mon Sep 17 00:00:00 2001 From: Colin Okay 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(-) (limited to 'examples/14-canvas-paint.lisp') 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