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 textchange-cbdata "Text Edited")

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

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

(define nameInputField (find-child (root engine) "nameInputField"))

(define (textChangeCallback cbdata argv) void
  (print "Text changed to " (to (property nameInputField "text") string:)))

(define conn2 (connect nameInputField "textEdited()"
                       textChangeCallback
                       textchange-cbdata
                       (qt-connection-type auto:)))

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