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