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

small revision of property dialog for QML

Browse source
This commit is contained in:
polos 2017-02-14 12:35:51 +01:00
parent 1281b68a8b
commit c90c74c931
4 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/M-modules/quick/qml-lisp/properties.lisp
View file

@ -4,8 +4,11 @@
(find-symbol (symbol-name name) package))
(defun show-properties-dialog (&optional item)
"Lists all instance properties of a QML item (either a QQuickItem or an 'objectName'). If no item is passed, QML:*CALLER* will be used."
(unless (find-package :properties)
(load (in-home "gui/properties")))
(when (stringp item)
(setf item (qml:find-quick-item item)))
(funcall (sym :show :properties)
(or item qml:*caller*)
t)) ; all instance properties (for QML)