13 lines
325 B
Scheme
13 lines
325 B
Scheme
(define-module (petri)
|
|
#:use-module (ice-9 format)
|
|
#:export (init get-error event-loop make-window make-label window-show)
|
|
#:replace (quit))
|
|
|
|
(load-extension "libpetri-guile" "init_petri")
|
|
|
|
(define (make-window)
|
|
(_window-new))
|
|
|
|
(define (make-label parent fmt . args)
|
|
(_label-new parent (apply format #f fmt args)))
|