mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-06 18:40:50 -08:00
14 lines
529 B
Common Lisp
14 lines
529 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 "lib/properties")))
|
|
(funcall (%sym :show :properties)
|
|
(or (if (stringp item)
|
|
(qml:find-quick-item item)
|
|
item)
|
|
qml:*caller*)))
|