12 lines
290 B
Scheme
12 lines
290 B
Scheme
(import (qml core)
|
|
coops)
|
|
|
|
(gui-application-create)
|
|
(define engine (make <QQmlApplicationEngine>))
|
|
(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))
|