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

add examples in "quick/item-model"; lots of minor revisions;

Browse source
This commit is contained in:
polos 2017-02-01 16:36:18 +01:00
parent d773093dbd
commit 376b7caed4
55 changed files with 3410 additions and 3006 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/M-modules/quick/item-model/lib/qml_lisp.cpp Normal file
View file

@ -0,0 +1,22 @@
#include "qml_lisp.h"
#include <eql_fun.h>
QT_BEGIN_NAMESPACE
static Lisp* lisp = 0;
static QObject* lisp_provider(QQmlEngine*, QJSEngine*) { return lisp; }
QObject* ini() {
if(!lisp) {
lisp = new Lisp;
qmlRegisterSingletonType<Lisp>("EQL5", 1, 0, "EQL5", lisp_provider); }
return lisp; }
QVariant Lisp::apply(QObject* caller, const QString& function, const QVariantList& arguments) {
return eql_fun("qml:qml-apply", QVariant::String,
Q_ARG(QObject*, caller),
Q_ARG(QString, function),
Q_ARG(QVariantList, arguments)); }
QT_END_NAMESPACE