add example 'clog-demo' (currently only runs '01-demo.lisp'); tested on android

This commit is contained in:
pls.153 2022-03-22 11:10:19 +01:00
parent f3e45837e0
commit c91a5f918d
28 changed files with 19903 additions and 24 deletions

View file

@ -0,0 +1,32 @@
import QtQuick 2.15
import QtQuick.Controls 2.15
import QtWebView 1.15
Item {
WebView {
id: browser
objectName: "browser"
width: parent. width
height: parent.height - reload.height
visible: !busy.visible
}
Button {
id: reload
anchors.bottom: parent.bottom
text: "Reload"
onClicked: browser.reload()
}
Rectangle {
id: busy
objectName: "busy"
color: "white"
anchors.fill: parent
Image {
anchors.centerIn: parent
source: "../img/busy.png"
}
}
}