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

some revisions

Browse source
This commit is contained in:
polos 2017-01-27 12:17:25 +01:00
parent 2aee9968c6
commit e806513a51
5 changed files with 53 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,7 +16,6 @@
#:js
#:qml-get
#:qml-set
#:properties
#:root-item))
(provide :qml-lisp)
@ -67,7 +66,7 @@
(print-js-readably object)))
(defun qml-apply (caller function arguments)
"Every 'Lisp.call()' or 'Lisp.apply()' function call in QML will call this function. The variable *CALLER* will be bound to the calling QQuickItem, if passed with 'this' as first argument to 'Lisp.call' / 'Lisp.apply()'."
"Every 'Lisp.call()' or 'Lisp.apply()' function call in QML will call this function. The variable *CALLER* will be bound to the calling QQuickItem, if passed with 'this' as first argument to 'Lisp.call()' / 'Lisp.apply()'."
(let* ((*caller* (if (qnull caller) nil (qt-object-? caller)))
(object (apply (string-to-symbol function)
arguments)))