10 lines
200 B
Scheme
10 lines
200 B
Scheme
(use-modules (petri))
|
|
|
|
(define (main . args)
|
|
(init "Hello world!" 0)
|
|
(let* ([win (make-window)]
|
|
[label (make-label win "Hello world!")])
|
|
(window-show win)
|
|
(event-loop))
|
|
(quit))
|