revisions

examples/Qt6/advanced-qml-auto-reload/qml/main.qml

@@ -1,8 +1,8 @@
 import QtQuick
 import QtQuick.Controls
 import QtQuick.Controls.Basic
-import ".ext/" as Ext        // for single file auto reload (development)
+import ".ext/" as Ext         // for single file auto reload (development)
-//import "ext/" as Ext       // release version
+//import "ext/" as Ext        // release version
 
 Rectangle {
   id: main

examples/app-template/app.pro

@@ -47,12 +47,18 @@ win32 {
 }
 
 android {
-  QT          += androidextras
   DEFINES     -= DESKTOP_APP
   INCLUDEPATH = $$ECL/include
   LIBS        = -L$$ECL/lib -lecl
   LIBS        += -L../../../platforms/android/lib
 
+  equals(QT_MAJOR_VERSION, 6) {
+    QT += core-private
+  }
+  lessThan(QT_MAJOR_VERSION, 6) {
+    QT += androidextras
+  }
+
   ANDROID_EXTRA_LIBS         += $$ECL/lib/libecl.so
   #ANDROID_PACKAGE_SOURCE_DIR = ../platforms/android
 
@@ -72,9 +78,31 @@ ios {
 }
 
 32bit {
-  LIBS += -llqml32 -llisp32
+  android {
+    equals(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml32_armeabi-v7a
+    }
+    lessThan(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml32
+    }
+  }
+  !android {
+    LIBS += -llqml32
+  }
+  LIBS += -llisp32
 } else {
-  LIBS += -llqml -llisp
+  android {
+    equals(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml_arm64-v8a
+    }
+    lessThan(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml
+    }
+  }
+  !android {
+    LIBS += -llqml
+  }
+  LIBS += -llisp
 }
 
 LIBS    += -Ltmp -lapp

examples/app-template/build-android/install-run.sh

@@ -1,3 +1,6 @@
 # install/update (keeps app data)
 adb install -r android-build/*.apk
+
+# try both
 adb shell am start -n org.qtproject.example.app/org.qtproject.qt5.android.bindings.QtActivity # Qt5
+adb shell am start -n org.qtproject.example.app/org.qtproject.qt.android.bindings.QtActivity  # Qt6

examples/cl-repl/app.pro

@@ -54,7 +54,6 @@ win32 {
 }
 
 android {
-  QT          += androidextras
   DEFINES     += NO_TEXT_HANDLES NO_USB
   DEFINES     -= DESKTOP_APP
   INCLUDEPATH = $$ECL/include
@@ -65,6 +64,13 @@ android {
   LIBS        += -lasdf -lecl-help -ldeflate -lecl-cdb -lecl-curl -lql-minitar -lsockets
   LIBS        += -L../../../platforms/android/lib
 
+  equals(QT_MAJOR_VERSION, 6) {
+    QT += core-private
+  }
+  lessThan(QT_MAJOR_VERSION, 6) {
+    QT += androidextras
+  }
+
   ANDROID_MIN_SDK_VERSION    = 21
   ANDROID_TARGET_SDK_VERSION = 34
   ANDROID_EXTRA_LIBS         += $$ECL/lib/libecl.so
@@ -108,9 +114,31 @@ ios {
 }
 
 32bit {
-  LIBS += -llqml32 -llisp32
+  android {
+    equals(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml32_armeabi-v7a
+    }
+    lessThan(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml32
+    }
+  }
+  !android {
+    LIBS += -llqml32
+  }
+  LIBS += -llisp32
 } else {
-  LIBS += -llqml -llisp
+  android {
+    equals(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml_arm64-v8a
+    }
+    lessThan(QT_MAJOR_VERSION, 6) {
+      LIBS += -llqml
+    }
+  }
+  !android {
+    LIBS += -llqml
+  }
+  LIBS += -llisp
 }
 
 LIBS        += -Ltmp -lapp

examples/tilt-sensor/lisp/main.lisp

@@ -8,36 +8,37 @@
 (defvar *max-x* (* (1- *width*) +w+))
 
 (defun move (x-rotation y-rotation) ; called from QML
-  (labels ((add (x)
+  (when *ready*
-             (truncate (signum x)))
+    (labels ((add (x)
-           (to-pos (x)
+               (truncate (signum x)))
-             (truncate (/ (+ x (/ +w+ 2))
+             (to-pos (x)
-                          +w+)))
+               (truncate (/ (+ x (/ +w+ 2))
-           (normalize (x)
+                            +w+)))
-             (* (to-pos x) +w+)))
+             (normalize (x)
-    ;; x axis rotation changes y
+               (* (to-pos x) +w+)))
-    ;; y axis rotation changes x
+      ;; x axis rotation changes y
-    (let* ((dx (min (* 0.2 y-rotation) (1- +w+)))
+      ;; y axis rotation changes x
-           (dy (min (* 0.2 x-rotation) (1- +w+)))
+      (let* ((dx (min (* 0.2 y-rotation) (1- +w+)))
-           (add-x (add dx))
+             (dy (min (* 0.2 x-rotation) (1- +w+)))
-           (add-y (add dy)))
+             (add-x (add dx))
-      (setf *x* (min *x* *max-x*)) ; don't lose ball (initial x)
+             (add-y (add dy)))
-      (if (aref *maze*
+        (setf *x* (min *x* *max-x*)) ; don't lose ball (initial x)
-                (+ add-x (to-pos *x*))
+        (if (aref *maze*
-                (to-pos *y*))
+                  (min (1- *width*) (+ add-x (to-pos *x*)))
-          (setf *x* (normalize *x*))
+                  (max 0 (to-pos *y*)))
-          (incf *x* dx))
+            (setf *x* (normalize *x*))
-      (if (aref *maze*
+            (incf *x* dx))
-                (to-pos *x*)
+        (if (aref *maze*
-                (+ add-y (to-pos *y*)))
+                  (min (1- *width*) (to-pos *x*))
-          (setf *y* (normalize *y*))
+                  (max 0 (+ add-y (to-pos *y*))))
-          (incf *y* dy))))
+            (setf *y* (normalize *y*))
-  (move-ball)
+            (incf *y* dy))))
+    (move-ball))
   (values)) ; no return value to QML
 
 (defun move-ball ()
   (if (and (= *x* +w+)
-           (= *y* 0))
+           (<= *y* 0))
       (new-game)
       (let ((ball (find-quick-item ui:*ball*)))
         ;; 'qset' is faster than 'q>', but can't trigger animations

examples/tilt-sensor/lisp/maze.lisp

@@ -8,7 +8,8 @@
 (defconstant *width*  25)
 (defconstant *height* 39)
 
-(defvar *maze*)
+(defvar *maze*  nil)
+(defvar *ready* t)
 
 (defun carve-maze (x y)
   (let ((d (random 4)))
@@ -33,10 +34,11 @@
           (carve-maze x2 y2))))))
 
 (defun generate-maze ()
-  (set-visible 1 1 nil)
+  (let ((*ready* nil))
-  (carve-maze  1 1)
+    (set-visible 1 1 nil)
-  (set-visible 1 0 nil)
+    (carve-maze  1 1)
-  (set-visible (- *width* 1) (- *height* 2) nil))
+    (set-visible 1 0 nil)
+    (set-visible (- *width* 1) (- *height* 2) nil)))
 
 (defun set-visible (x y visible)
   (setf (aref *maze* x y) visible)

platforms/sailfish/qt5.15-installation.md

@@ -22,15 +22,14 @@ $ devel-su zypper install opt-qt5-qtmultimedia-devel
 $ devel-su zypper install opt-qt5-qtquickcontrols2-devel
 $ devel-su zypper install opt-qt5-qtsensors-devel
 ```
-In one occasion (opt-qtdeclarative-devel) it will say:
+If it says:
 ```
 Problem: This request will break your system!
-nothing provides 'pkgconfig(android-headers)' needed by the to be installed libhybris-devel
 ```
-You can safely ignore this warning, nothing will really break (see below),
+You can safely ignore those warnings, nothing will really break (see below),
 so just choose:
 ```
-Solution 3: break libhybris-devel by ignoring some of its dependencies
+Solution 3: break <name>-devel by ignoring some of its dependencies
 ```
 
 Now you should be able to build/install the `lqml` executable and library.

readme-sailfish.md

@@ -33,6 +33,21 @@ $ sshfs defaultuser@192.168.2.15: ~/phone
 
 First try to compile/install ECL (tab 1) just like you would do on the desktop.
 
+You may need to run the following commands before compiling (ensure to be
+logged in to your free Jolla account):
+```
+$ devel-su pkcon refresh
+$ devel-su pkcon install zypper
+$ devel-su zypper install gcc make
+```
+You may also needed to edit `ecl-23.9.9/src/gmp/configure`, and replace all
+occurrences of `linux*android*)` with `linux-android*)`.
+
+After compiling and installing ECL, add this soft link:
+```
+$ devel-su ln -s /usr/local/lib/libecl.so.23.9 /usr/lib/libecl.so.23.9
+```
+
 Then follow the description
 [qt5.15-rpm-installation](platforms/sailfish/qt5.15-installation.md).
 

snippets/busy-simple/qml/main.qml

@@ -8,7 +8,7 @@ Item {
   AnimatedImage {
     objectName: "busy"
     anchors.centerIn: parent
-    width: 64
+    width: 32
     height: width
     z: 10
     source: "img/busy.gif"