mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-06 10:31:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

better "qml-get", "qml-set" (using QQmlProperty)

Browse source
This commit is contained in:
polos 2017-01-21 19:14:32 +01:00
parent c10db89cc1
commit 881939b2d9
4 changed files with 44 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

46
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -10,12 +10,11 @@
(:nicknames :qml)
(:export
#:*quick-view*
#:find-qml-object
#:js
#:root-object
#:qml-get
#:qml-set
#:qml-get*
#:qml-set*))
#:root-object))
(provide :qml-lisp)
@ -79,40 +78,37 @@
(setf root-object (|rootObject| *quick-view*)))
root-object))
(defun find-qml-object (name &optional all)
(if (string= (|objectName| (root-object)) name)
(defun find-qml-object (&optional object-name)
"Finds the first QML item matching OBJECT-NAME."
(if (string= (|objectName| (root-object)) object-name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name))))
(qfind-child (root-object) object-name)))
;;; get/set QML object properties
;;; get/set QQmlProperty
(defun qml-get (object-name property-name)
"Gets QML property for first object matching 'objectName'."
(qget (find-qml-object object-name) property-name))
"Gets QQmlProperty for first object matching 'objectName'."
(qlet ((property "QQmlProperty(QObject*,QString)"
(find-qml-object object-name)
property-name)
(variant (|read| property)))
(qvariant-value variant)))
(defun qml-set (object-name property-name value)
"Sets QML property for first object matching 'objectName'."
(qset (find-qml-object object-name) property-name value))
(defun qml-get* (object-name property-name)
"Collects QML properties for all objects matching 'objectName'."
(mapcar (lambda (object)
(qget object property-name))
(find-qml-object object-name t)))
(defun qml-set* (object-name property-name value)
"Sets QML property for all objects matching 'objectName'."
(dolist (object (find-qml-object object-name t))
(qset object property-name value)))
"Sets QQmlProperty for first object matching 'objectName'. Returns T on success."
(qlet ((property "QQmlProperty(QObject*,QString)"
(find-qml-object object-name)
property-name))
(x:when-it (|propertyTypeName| property)
(qlet ((variant (qnew (format nil "QVariant(~A)" x:it) value)))
(|write| property variant)))))
;;; JS
(defun js (object-name js-format-string &rest arguments)
"Evaluates a JS string with the element bound to OBJECT-NAME as 'this'."
(qlet ((qml-exp "QQmlExpression(QQmlContext*,QObject*,QString)"
(|rootContext| (|engine| *quick-view*))
(|rootContext| *quick-view*)
(find-qml-object object-name)
(apply 'format nil js-format-string arguments))
(variant (|evaluate| qml-exp)))