(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)))