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

fix 'qml-set' to work with enum values

Browse source
This commit is contained in:
polos 2017-10-10 10:59:03 +02:00
parent f90cbbaf24
commit 18b02ba011
7 changed files with 49 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -139,11 +139,12 @@
(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))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(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))))))
(defun qml-set-all (name property-name value &optional update)
@ -152,7 +153,7 @@
(dolist (item (qfind-children (root-item) name))
(qml-set item property-name value update)))
;;; JS
;;; JS
(defun js (item/name js-format-string &rest arguments)
"Evaluates a JS string, with 'this' bound to either ITEM, or first object matching NAME. Arguments are passed through FORMAT."