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

revisions

Browse source
This commit is contained in:
pls.153 2022-04-09 12:14:45 +02:00
parent 22fa212c88
commit 789b4716c1
5 changed files with 26 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cpp/ecl_ext.cpp
View file

@ -80,7 +80,7 @@ void error_msg(const char* fun, cl_object l_args) {
// for error messages in ECL functions defined in C++
STATIC_SYMBOL_PKG (s_break_on_errors, "*BREAK-ON-ERRORS*", "QML")
if (cl_symbol_value(s_break_on_errors) != ECL_NIL) {
STATIC_SYMBOL_PKG (s_break, "%BREAK", "QML") // see "ini.lisp"
STATIC_SYMBOL_PKG (s_break, "%BREAK", "QML") // see 'ini.lisp'
cl_funcall(4,
s_break,
STRING("~%[LQML:error] ~A ~{~S~^ ~}~%"),
@ -194,7 +194,7 @@ cl_object qfind_child(cl_object l_obj, cl_object l_name) {
ecl_process_env()->nvalues = 1;
QString name(toQString(l_name));
if (!name.isEmpty()) {
QObject* qobject = toQObjectPointer(l_obj);
QObject* qobject = (l_obj == ECL_NIL) ? qGuiApp : toQObjectPointer(l_obj);
if (qobject != nullptr) {
QObject* obj = qobject->findChild<QObject*>(name);
if (obj != nullptr) {