blob: 2a700a22006a2603e01cadbff9f37b34bf00ade0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define-module (lisparuga)
#:use-module (lisparuga kernel)
#:use-module (lisparuga scene)
#:use-module (oop goops)
#:export (launch-lisparuga))
(define %window-width 640)
(define %window-height 480)
(define-class <lisparuga> (<scene>))
(define (launch-lisparuga)
(boot-kernel (make <kernel>
#:window-config (make <window-config>
#:title "Lisparuga"
#:width %window-width
#:height %window-height))
(lambda () (make <lisparuga>))))
|