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

add error message for invalid QML property get/set

Browse source
This commit is contained in:
polos 2017-01-25 10:28:51 +01:00
parent feddd49e1e
commit a74bb0a0b0
2 changed files with 20 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -90,18 +90,22 @@
"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)))
property-name))
(if (|isValid| property)
(qlet ((variant (|read| property)))
(values (qvariant-value variant)
t))
(eql::%error-msg "QML-GET" (list object-name property-name)))))
(defun qml-set (object-name 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 (qvariant-from-value value x:it)))
(|write| property variant)))))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(|write| property variant))
(eql::%error-msg "QML-SET" (list object-name property-name value)))))
;;; JS