summaryrefslogtreecommitdiff
path: root/starling/kernel.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/kernel.scm')
-rw-r--r--starling/kernel.scm24
1 files changed, 17 insertions, 7 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm
index 3f19d5f..15e05e3 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -70,13 +70,10 @@
reboot-current-scene)
#:re-export (abort-game))
-(define-class <window-config> ()
- (width #:accessor window-width #:init-form 640 #:init-keyword #:width)
- (height #:accessor window-height #:init-form 480 #:init-keyword #:height)
- (title #:accessor window-title #:init-form "Lisparuga"
- #:init-keyword #:title)
- (fullscreen? #:accessor window-fullscreen? #:init-form #f
- #:init-keyword #:fullscreen?))
+
+;;;
+;;; FPS Display
+;;;
(define-class <fps-display> (<node>))
@@ -110,6 +107,19 @@
(set! (text (& fps-display canvas fps-label))
(format #f "~1,1f" fps)))
+
+;;;
+;;; Kernel
+;;;
+
+(define-class <window-config> ()
+ (width #:accessor window-width #:init-form 640 #:init-keyword #:width)
+ (height #:accessor window-height #:init-form 480 #:init-keyword #:height)
+ (title #:accessor window-title #:init-form "Lisparuga"
+ #:init-keyword #:title)
+ (fullscreen? #:accessor window-fullscreen? #:init-form #f
+ #:init-keyword #:fullscreen?))
+
(define-class <kernel> (<scene-mux>)
(name #:accessor name #:init-form "lisparuga-kernel"
#:init-keyword #:name)