diff options
| -rw-r--r-- | catbird.scm | 7 |
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))) |