qml-old/examples/helloworld.scm

(import
  (qml core)
  coops)

(gui-application-create)
(define engine (make <QQmlApplicationEngine>))

(define (windowLoadCallback cbdata argv) void
  (print cbdata)
  (print "Loaded QML file: " (to (cadr argv) string:)))

(define callback-data "Test")

(define conn (connect-lambda-static engine "objectCreated(QObject*,QUrl)"
                                    windowLoadCallback
                                    callback-data
                                    (qt-connection-type auto:)))

(define loc (new-QUrl "examples/helloworld.qml"))
(load-url engine loc)

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