fabs/oboy
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add name + version in About view

Browse source
This commit is contained in:
Fabien Freling 2019-05-11 21:13:09 +02:00
parent 95a1f784fc
commit fe2c5e8ba1
4 changed files with 44 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/qt/oboy.cpp
View file

@ -1,6 +1,31 @@
#include "oboy.h"
#include <caml/mlvalues.h>
#include <caml/callback.h>
OBoy::OBoy(QObject *parent) : QObject(parent)
{
}
QString OBoy::name() const
{
value * closure_f = caml_named_value("name");
if (closure_f == nullptr) {
return QString("<Unreachable>");
}
const char *str = String_val(caml_callback(*closure_f, Val_unit));
return QString(str);
}
QString OBoy::version() const
{
value * closure_f = caml_named_value("version");
if (closure_f == nullptr) {
return QString("<Unreachable>");
}
const char *str = String_val(caml_callback(*closure_f, Val_unit));
return QString(str);
}