mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-15 14:50:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix 'qml-set' to work with enum values

Browse source
This commit is contained in:
polos 2017-10-10 10:59:03 +02:00
parent f90cbbaf24
commit 18b02ba011
7 changed files with 49 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

11
examples/M-modules/quick/Tic-Tac-Toe/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/item-model/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/painted-item/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/palindrome-2/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/sokoban/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)

11
examples/M-modules/quick/table-view/qml-lisp.lisp
View file

@ -139,11 +139,12 @@
(let ((item (quick-item item/name)))
(qlet ((property "QQmlProperty(QObject*,QString)" item property-name))
(if (|isValid| property)
(qlet ((variant (qvariant-from-value value (|propertyTypeName| property))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) #.(qid "QQuickPaintedItem")))
(|update| item))))
(let ((type-name (|propertyTypeName| property)))
(qlet ((variant (qvariant-from-value value (if (find #\: type-name) "int" type-name))))
(prog1
(|write| property variant)
(when (and update (= (qt-object-id item) (qid "QQuickPaintedItem")))
(|update| item)))))
(eql::%error-msg "QML-SET" (list item/name property-name value))))))
(defun qml-set-all (name property-name value &optional update)