mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revision of example 'debug-ui'

Browse source
This commit is contained in:
pls.153 2025-10-18 16:51:19 +02:00
parent 3b1934f3bf
commit 933f36fa9f
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/debug-ui/lisp/main.lisp
View file

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

13
examples/debug-ui/qml/main.qml
View file

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