add convenience function '(eql:qml)' for auto generating vars according to QML item's 'objectName'; bump version number;

src/eql.cpp

@@ -8,7 +8,7 @@
 #include <QTimer>
 #include <QStringList>
 
-const char EQL::version[] = "20.5.1"; // May 2020
+const char EQL::version[] = "20.7.1"; // July 2020
 
 extern "C" void ini_EQL(cl_object);
 

src/eql_exe.qrc

@@ -22,6 +22,7 @@
     <file>../lib/properties.lisp</file>
     <file>../lib/properties.ui</file>
     <file>../lib/qselect.lisp</file>
+    <file>../lib/qml-ui-vars.lisp</file>
     <file>../lib/quic.lisp</file>
     <file>../lib/restart-dialog.lisp</file>
     <file>../lib/thread-safe.lisp</file>

src/lisp/ini.lisp

@@ -633,6 +633,11 @@
       (load (in-home "lib/quic")))
     (funcall (intern "RUN" :quic) ui.h ui.lisp ui-package properties)))
 
+(defun qml ()
+  "args: ()
+  Generates global variables for all QML items with <code>objectName</code> set. Requires the QML app to be running. Will show an error message if <code>objectName</code> is not unique."
+  (load (in-home "lib/qml-ui-vars")))
+
 (defun qrequire (module &optional quiet)
   (%qrequire module quiet))
 

src/lisp/package.lisp

@@ -58,6 +58,7 @@
    #:qlocal8bit
    #:qlog
    #:qmessage-box
+   #:qml
    #:qmsg
    #:qnew
    #:qnew-instance

src/main.cpp

@@ -7,7 +7,7 @@
 
 void ini() {
     QString home(QDir::homePath() + "/.eql5/");
-    if(!QFile::exists(home + "lib/gui.lisp")) {
+    if(!QFile::exists(home + "lib/qml-ui-vars.lisp")) { // latest added file
         QDir dir(QDir::homePath());
         dir.mkdir(".eql5");
         dir.setPath(home);
@@ -35,6 +35,7 @@ void ini() {
             << "lib/properties.lisp"
             << "lib/properties.ui"
             << "lib/qselect.lisp"
+            << "lib/qml-ui-vars.lisp"
             << "lib/quic.lisp"
             << "lib/restart-dialog.lisp"
             << "lib/thread-safe.lisp"