diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-03-28 21:39:46 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-03-28 21:39:46 -0400 |
| commit | 0745a6e2289f75b5d5c5093bb7bcf8f58660322f (patch) | |
| tree | f4ada4c8ee7521637322100008ea2c287f0505d2 | |
| parent | fccd2b7b6f6103e1f4431e3471a1847821780971 (diff) | |
Activate UI minor mode in overlay.
| -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))) |