From 0745a6e2289f75b5d5c5093bb7bcf8f58660322f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 28 Mar 2023 21:39:46 -0400
Subject: Activate UI minor mode in overlay.

---
 catbird.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/catbird.scm b/catbird.scm
index eb08d10..e8e439f 100644
--- a/catbird.scm
+++ b/catbird.scm
@@ -29,6 +29,7 @@
   #:use-module (catbird overlay)
   #:use-module (catbird region)
   #:use-module (catbird scene)
+  #:use-module (catbird ui)
   #:use-module (chickadee)
   #:use-module (chickadee math rect)
   #:use-module (oop goops)
@@ -37,12 +38,14 @@
 
 ;; Add the system notification and debugging overlay.
 (define (add-overlay)
-  (let ((region (create-full-region #:name 'overlay #:rank 9999)))
+  (let ((region (create-full-region #:name 'overlay #:rank 9999))
+        (overlay-scene (make-overlay)))
     (set! (camera region)
           (make <camera-2d>
             #:width (rect-width (area region))
             #:height (rect-height (area region))))
-    (replace-scene region (make-overlay))))
+    (replace-scene region overlay-scene)
+    (add-minor-mode overlay-scene (make <ui-mode>))))
 
 (define (overlay-scene)
   (scene (find-region-by-name 'overlay)))
-- 
cgit v1.2.3