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

revision of QML "sokoban"; add function QML-SET-ALL;

Browse source
This commit is contained in:
polos 2017-03-01 14:57:23 +01:00
parent a85aaa41ff
commit cd0227b66b
8 changed files with 108 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,6 +16,7 @@
#:js
#:qml-get
#:qml-set
#:qml-set-all
#:paint
#:reload
#:root-context
@ -135,6 +136,12 @@
(|update| item))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)
"Sets QQmlProperty of all objects matching NAME."
(assert (stringp name))
(dolist (item (qfind-children (root-item) name))
(qml-set item property-name value update)))
;;; JS
(defun js (item/name js-format-string &rest arguments)