diff options
| -rw-r--r-- | catbird.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/catbird.scm b/catbird.scm index cdd3313..13ebc4a 100644 --- a/catbird.scm +++ b/catbird.scm @@ -30,6 +30,7 @@ #:use-module (catbird scene) #:use-module (catbird ui) #:use-module (chickadee) + #:use-module (chickadee graphics viewport) #:use-module (chickadee math rect) #:use-module (oop goops) #:export (run-catbird @@ -59,7 +60,8 @@ (define* (run-catbird thunk #:key (width 1366) (height 768) (title "^~Catbird~^") (fullscreen? #f) - (resizable? #t) (update-hz 60)) + (resizable? #t) (update-hz 60) + (clear-color %default-clear-color)) (let ((kernel (make <kernel>))) (parameterize ((current-kernel kernel)) (run-game #:window-title title @@ -68,6 +70,7 @@ #:window-fullscreen? fullscreen? #:window-resizable? resizable? #:update-hz update-hz + #:clear-color clear-color #:load (lambda () (load* kernel) |