qml-old/examples/helloworld.scm

(import
  (chicken foreign)
  (qml core)
		coops)

(gui-application-create)
(define engine (make <QQmlApplicationEngine>))
(define loc (new-QUrl "examples/helloworld.qml"))
(load-url engine loc)

(define-external (windowCloseCallback (c-pointer cbdata) (int argc) ((c-pointer c-pointer) argv)) void
  (print (string-append "Got back " argc " arguments.")))

(define callback-data (new-CallbackData "Test"))

(define conn (connect-lambda-static engine "quit"
                                    windowCloseCallback
                                    callback-data
                                    (qt-connection-type auto:)))

(do ((loop #t))
  ((not loop) #t)
  (process-events-timed (qevent-loop-process-event-flag process-all-events:) 50))

(type windowCloseCallback)
(type callback-data)