mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-13 05:40:25 -08:00
14 lines
527 B
Common Lisp
14 lines
527 B
Common Lisp
;;; properties dialog
|
|
|
|
(defun sym (name package)
|
|
(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")))
|
|
(funcall (sym :show :properties)
|
|
(or (if (stringp item)
|
|
(qml:find-quick-item item)
|
|
item)
|
|
qml:*caller*)))
|