mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-14 05:11:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

add function 'view-status-changed'

Browse source
This commit is contained in:
pls.153 2022-03-02 09:19:14 +01:00
parent f0470344a7
commit e7a64ff10d
5 changed files with 34 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cpp/ecl_ext.cpp
View file

@ -58,6 +58,14 @@ void iniCLFunctions() {
DEFUN ("%reload", reload2, 0)
DEFUN ("root-item", root_item, 0)
DEFUN ("%set-shutdown-p", set_shutdown_p, 1)
STATIC_SYMBOL_PKG (s_view_status_changed, "VIEW-STATUS-CHANGED", "QML")
LQML::quickView->connect(LQML::quickView, &QQuickView::statusChanged,
[](QQuickView::Status status) {
cl_funcall(2,
s_view_status_changed,
ecl_make_fixnum(static_cast<int>(status)));
});
}