mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-08 03:20:30 -08:00
11 lines
337 B
Common Lisp
11 lines
337 B
Common Lisp
;;; properties dialog
|
|
|
|
(defun sym (name package)
|
|
(find-symbol (symbol-name name) package))
|
|
|
|
(defun show-properties-dialog (&optional item)
|
|
(unless (find-package :properties)
|
|
(load (in-home "gui/properties")))
|
|
(funcall (sym :show :properties)
|
|
(or item qml:*caller*)
|
|
t)) ; all instance properties (for QML)
|