aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--examples/14-canvas-paint.lisp3
1 files changed, 2 insertions, 1 deletions
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)))