mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-09 20:01:10 -08:00
32 lines
834 B
Common Lisp
32 lines
834 B
Common Lisp
;;; QQuickView loading Lisp enabled QML
|
|
|
|
#-qt-wrapper-functions ; see README-OPTIONAL.txt
|
|
(load (in-home "src/lisp/all-wrappers"))
|
|
|
|
(qrequire :quick)
|
|
|
|
(require :qml-lisp "qml-lisp")
|
|
|
|
(use-package :qml)
|
|
|
|
;; utils
|
|
|
|
(defun sym (name package)
|
|
(find-symbol (symbol-name name) package))
|
|
|
|
;; for example (5) in "qml/example.qml"
|
|
|
|
(defun show-properties-dialog ()
|
|
(unless (find-package :properties)
|
|
(load (in-home "gui/properties")))
|
|
(funcall (sym :show :properties) qml:*caller*))
|
|
|
|
(defun run ()
|
|
;; *quick-view* can be either a QQuickView or a QQuickWidget
|
|
(setf qml:*quick-view* (qnew "QQuickView(QUrl)"
|
|
(|fromLocalFile.QUrl| "qml/example.qml")))
|
|
(|setResizeMode| qml:*quick-view* |QQuickView.SizeRootObjectToView|)
|
|
(|resize| qml:*quick-view* '(350 350))
|
|
(|show| qml:*quick-view*))
|
|
|
|
(run)
|