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

small revisions in "quick" examples

Browse source
This commit is contained in:
polos 2017-01-19 20:48:18 +01:00
parent e8992bdc5f
commit 4cb7bfcfbf
4 changed files with 28 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -32,9 +32,6 @@
(subseq upper 0 p))
(intern upper))))
(defun qml-error (format-string &rest arguments)
(format *debug-io* "~&[QML] ~A~%" (apply 'format nil format-string arguments)))
;;; function calls from QML
(defun qml-apply (function arguments)
@ -52,12 +49,11 @@
root-object))
(defun find-qml-object (name &optional all)
(or (if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name)))
(qml-error "No object found with name: ~S." name)))
(if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name))))
;;; get/set QML object properties