From c90c74c93122f18da17d9afef73c3034c2546f4d Mon Sep 17 00:00:00 2001 From: polos Date: Tue, 14 Feb 2017 12:35:51 +0100 Subject: [PATCH] small revision of property dialog for QML --- examples/M-modules/quick/Tic-Tac-Toe/properties.lisp | 3 +++ examples/M-modules/quick/item-model/properties.lisp | 3 +++ examples/M-modules/quick/painted-item/properties.lisp | 3 +++ examples/M-modules/quick/qml-lisp/properties.lisp | 3 +++ 4 files changed, 12 insertions(+) diff --git a/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp b/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp index b5eeaa3..dadfaa5 100644 --- a/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp +++ b/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp @@ -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) diff --git a/examples/M-modules/quick/item-model/properties.lisp b/examples/M-modules/quick/item-model/properties.lisp index b5eeaa3..dadfaa5 100644 --- a/examples/M-modules/quick/item-model/properties.lisp +++ b/examples/M-modules/quick/item-model/properties.lisp @@ -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) diff --git a/examples/M-modules/quick/painted-item/properties.lisp b/examples/M-modules/quick/painted-item/properties.lisp index b5eeaa3..dadfaa5 100644 --- a/examples/M-modules/quick/painted-item/properties.lisp +++ b/examples/M-modules/quick/painted-item/properties.lisp @@ -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) diff --git a/examples/M-modules/quick/qml-lisp/properties.lisp b/examples/M-modules/quick/qml-lisp/properties.lisp index b5eeaa3..dadfaa5 100644 --- a/examples/M-modules/quick/qml-lisp/properties.lisp +++ b/examples/M-modules/quick/qml-lisp/properties.lisp @@ -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)