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

revert latest commit (crashes on iOS)

Browse source
This commit is contained in:
pls.153 2023-01-10 19:27:19 +01:00
parent 7e49027c57
commit 608c17f121
8 changed files with 2 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

8
examples/advanced-qml-auto-reload/lisp/main.lisp
View file

@ -1,9 +1,5 @@
(in-package :app)
#+mobile
(qsingle-shot 1000 (lambda ()
(when qml::*remote-ip*
(qjs |message| ui:*dialogs*
(format nil "<qt>QML auto reload enabled from: <br><br>~A<br><br>Ensure <b>web-server.sh</b> is running.</qt>"
qml::*remote-ip*))
(auto-reload-qml))))
(when qml::*remote-ip*
(qsingle-shot 1000 'auto-reload-qml))

2
examples/advanced-qml-auto-reload/lisp/ui-vars.lisp
View file

@ -1,7 +1,6 @@
(defpackage ui
(:use :cl :qml)
(:export
#:*dialogs*
#:*flick-output*
#:*history-back*
#:*history-forward*
@ -13,7 +12,6 @@
(in-package :ui)
(defparameter *dialogs* "dialogs")
(defparameter *flick-output* "flick_output")
(defparameter *history-back* "history_back")
(defparameter *history-forward* "history_forward")

19
examples/advanced-qml-auto-reload/qml/ext/dialogs/Confirm.qml
View file

@ -1,19 +0,0 @@
import QtQuick 2.15
import QtQuick.Dialogs 1.3
Dialog {
title: "LQML"
standardButtons: Dialog.Save | Dialog.Cancel
property alias text: message.text
property string callback
Text {
id: message
width: parent.width // without width word wrap won't work
wrapMode: Text.Wrap
}
onAccepted: Lisp.call(callback, true)
onRejected: Lisp.call(callback, false)
}

23
examples/advanced-qml-auto-reload/qml/ext/dialogs/ConfirmMobile.qml
View file

@ -1,23 +0,0 @@
import QtQuick 2.15
import QtQuick.Controls 2.15
Dialog {
anchors.centerIn: parent
title: "Confirm"
font.pixelSize: 18
modal: true
standardButtons: Dialog.Save | Dialog.Cancel
property alias text: message.text
property string callback
Text {
id: message
width: parent.width // without width word wrap won't work
wrapMode: Text.Wrap
font.pixelSize: 18
}
onAccepted: Lisp.call(callback, true)
onRejected: Lisp.call(callback, false)
}

36
examples/advanced-qml-auto-reload/qml/ext/dialogs/Dialogs.qml
View file

@ -1,36 +0,0 @@
import QtQuick 2.15
Item {
id: dialogs
objectName: "dialogs"
anchors.fill: parent
Loader {
id: loader
anchors.centerIn: parent
}
function message(text) {
if ((Qt.platform.os === "android") ||
(Qt.platform.os === "ios")) {
loader.source = "MessageMobile.qml"
} else {
loader.source = "Message.qml"
}
loader.item.text = text
loader.item.open()
}
function confirm(title, text, callback) {
if ((Qt.platform.os === "android") ||
(Qt.platform.os === "ios")) {
loader.source = "ConfirmMobile.qml"
} else {
loader.source = "Confirm.qml"
}
loader.item.title = title
loader.item.text = text
loader.item.callback = callback
loader.item.open()
}
}

15
examples/advanced-qml-auto-reload/qml/ext/dialogs/Message.qml
View file

@ -1,15 +0,0 @@
import QtQuick 2.15
import QtQuick.Dialogs 1.3
Dialog {
title: "Info"
standardButtons: Dialog.Ok
property alias text: message.text
Text {
id: message
width: parent.width // without width word wrap won't work
wrapMode: Text.Wrap
}
}

19
examples/advanced-qml-auto-reload/qml/ext/dialogs/MessageMobile.qml
View file

@ -1,19 +0,0 @@
import QtQuick 2.15
import QtQuick.Controls 2.15
Dialog {
anchors.centerIn: parent
title: "Info"
font.pixelSize: 18
modal: true
standardButtons: Dialog.Ok
property alias text: message.text
Text {
id: message
width: parent.width // without width word wrap won't work
wrapMode: Text.Wrap
font.pixelSize: 18
}
}

3
examples/advanced-qml-auto-reload/qml/main.qml
View file

@ -2,7 +2,6 @@ import QtQuick 2.15
import QtQuick.Controls 2.15
import ".ext/" as Ext // for single file auto reload (development)
//import "ext/" as Ext // release version
import 'ext/dialogs' as Dlg
Rectangle {
id: main
@ -46,6 +45,4 @@ Rectangle {
FontLoader { id: fontIcons; source: "fonts/fontawesome-webfont.ttf" }
FontLoader { id: fontHack; source: "fonts/Hack-Regular.ttf" }
FontLoader { id: fontHackBold; source: "fonts/Hack-Bold.ttf" }
Dlg.Dialogs {} // modal dialogs
}