revision of example 'debug-ui'

examples/debug-ui/lisp/main.lisp

@@ -1,4 +1,6 @@
 (in-package :app)
 
-;; intentional division by zero after 5 seconds
-(qsingle-shot 5000 (lambda () (dotimes (i 1) (/ 1 i))))
+(defun crash? ()
+  (funcall 'no-such-function))
+
+(qsingle-shot 10000 'crash?)

examples/debug-ui/qml/main.qml

@@ -23,15 +23,22 @@ StackView {
 
   // fonts (must stay here, before using them below)
 
-  FontLoader { id: fontHack;     source: "fonts/Hack-Regular.ttf" }        // code
+  FontLoader { id: fontHack;     source: "fonts/Hack-Regular.ttf" }
   FontLoader { id: fontHackBold; source: "fonts/Hack-Bold.ttf" }
-  FontLoader { id: fontAwesome;  source: "fonts/fontawesome-webfont.ttf" } // icons
 
   // items
 
   Rectangle {
     id: mainRect
-    color: "lavender"
+    color: "orange"
+
+    Button {
+      id: button
+      anchors.centerIn: parent
+      text: "Click (or wait 10 seconds)"
+
+      onClicked: Lisp.call("app:crash?")
+    }
   }
 
   // dialogs