mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
15 lines
382 B
Common Lisp
15 lines
382 B
Common Lisp
(in-package :qml)
|
|
|
|
(defvar *qml-file* nil)
|
|
|
|
(defun reload-qml-file ()
|
|
(qlater 'qml-item-from-file))
|
|
|
|
(defun qml-item-from-file (&optional (file *qml-file*) (name "my"))
|
|
(setf *qml-file* file)
|
|
(x:when-it (qjs |createItem| ui:*dynamic* file)
|
|
(qset x:it |parent| (root-item))
|
|
(qset x:it |objectName| name)
|
|
x:it))
|
|
|
|
(export (list 'qml-item-from-file 'reload-qml-file))
|