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

small revisions

Browse source
This commit is contained in:
polos 2017-01-28 16:11:10 +01:00
parent e7c371aeea
commit f0ab71b30b
4 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -88,9 +88,12 @@
(qt-object-? (qfind-child (root-item) object-name))))
(defun quick-item (item/name)
(if (stringp item/name)
(find-quick-item item/name)
item/name))
(cond ((stringp item/name)
(find-quick-item item/name))
((qt-object-p item/name)
item/name)
((not item/name)
(root-item))))
(defun children (item/name)
(|childItems| (quick-item item/name)))