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

extend QML-SET to call |update| if desired (for QML 'PaintedItem' only)

Browse source
This commit is contained in:
polos 2017-02-10 12:43:19 +01:00
parent 7b8dcfcbb4
commit 560431046c
5 changed files with 49 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -123,15 +123,17 @@
t))
(eql::%error-msg "QML-GET" (list item/name property-name)))))
(defun qml-set (item/name property-name value)
"Sets QQmlProperty of either ITEM, or first object matching NAME. Returns T on success."
(qlet ((property "QQmlProperty(QObject*,QString)"
(quick-item item/name)
property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(|write| property variant))
(eql::%error-msg "QML-SET" (list item/name property-name value)))))
(defun qml-set (item/name property-name value &optional update)
"Sets QQmlProperty of either ITEM, or first object matching NAME. Returns T on success. If UPDATE is not NIL and ITEM is a QQuickPaintedItem, |update| will be called on it."
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
;;; JS