summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird.scm7
1 files 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)))