mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-07 17:52:32 -08:00
Code Issues Projects Releases Packages Wiki Activity

'Qt_EQL': in 'EQL::addObject' / 'define-qt-wrappers': also add methods of all super classes; make lispifying C names optional;

Browse source
This commit is contained in:
polos 2021-06-14 20:13:15 +02:00
parent 1758101cf2
commit 9738cdad85
9 changed files with 122 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Qt_EQL/tutorial/test.cpp
View file

@ -2,6 +2,8 @@
#include <QtDebug>
#include <eql5/eql_fun.h>
// class Test
Test::Test(QObject* parent, const QString& name) : QObject(parent) {
setObjectName(name);
}
@ -36,3 +38,18 @@ void Test::printMe() {
eql_fun("eql-user:print-qt-object", Q_ARG(QObject*, this));
}
// class Test2, which inherits Test
Test2::Test2(QObject* parent, const QString& name) : Test(parent) {
setObjectName(name);
}
QObject* Test2::newInstance(QObject* parent, const QString& name) {
return new Test2(parent, name);
}
void Test2::printAllMemberFunctions() {
// see comment above
eql_fun("eql:qapropos", Q_ARG(bool, false),
Q_ARG(QObject*, this));
}