mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-25 11:21:08 -08:00
15 lines
346 B
Common Lisp
15 lines
346 B
Common Lisp
;;; QQuickView running QML
|
|
|
|
(qrequire :quick)
|
|
|
|
(require :properties "properties")
|
|
|
|
(defvar *quick-view* (qnew "QQuickView")) ; either a QQuickView or a QQuickWidget
|
|
|
|
(defun run ()
|
|
(x:do-with *quick-view*
|
|
(|setSource| (|fromLocalFile.QUrl| "qml/palindrome.qml"))
|
|
(|setResizeMode| |QQuickView.SizeRootObjectToView|)
|
|
(|show|)))
|
|
|
|
(run)
|