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

example 'clog-demo': fix double connection id; revisions

Browse source
This commit is contained in:
pls.153 2025-04-20 10:45:37 +02:00
parent f291e55bae
commit 91ef9f4fdc
6 changed files with 14 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/clog-demo/app.asd
View file

@ -5,7 +5,7 @@
:components ((:file "lisp/package") :components ((:file "lisp/package")
(:file "lisp/ini") (:file "lisp/ini")
(:file "lisp/ui-vars") (:file "lisp/ui-vars")
(:file "lisp/swank-quicklisp") #+mobile (:file "lisp/swank-quicklisp")
(:file "lisp/eval") (:file "lisp/eval")
(:file "lisp/clog-bridge") (:file "lisp/clog-bridge")
(:file "clog-assets/demos/01-demo") (:file "clog-assets/demos/01-demo")

6
examples/clog-demo/qml/ext/Browser.qml
View file

@ -12,12 +12,6 @@ Item {
width: parent.width width: parent.width
height: parent.height - reload.height height: parent.height - reload.height
visible: !busy.visible visible: !busy.visible
onLoadingChanged: {
if (loadRequest.status === WebView.LoadSucceededStatus) {
Lisp.call("clog:webview/on-new-connection")
}
}
} }
Button { Button {

2
examples/clog-demo/qml/ext/Server.qml
View file

@ -16,7 +16,7 @@ Item {
client.sendTextMessage(message) client.sendTextMessage(message)
} }
onClientConnected: { onClientConnected: (webSocket) => {
client = webSocket client = webSocket
webSocket.objectName = ++counter webSocket.objectName = ++counter
main.log("[new] " + counter) main.log("[new] " + counter)

2
examples/clog-demo/readme-build.md
View file

@ -3,7 +3,7 @@ Prepare
------- -------
First you need to patch ASDF from ECL android. So, switch to where you have First you need to patch ASDF from ECL android. So, switch to where you have
ecl-android installed, and edit file: 'contrib/asdf/asdf.lisp'. ecl-android installed, and edit file: `contrib/asdf/asdf.lisp`.
Find the following function, and replace it with this code: Find the following function, and replace it with this code:
``` ```

12
examples/clog-demo/readme.md
View file

@ -29,12 +29,12 @@ for installing the Slime sources where this example can find them.
`~/quicklisp/local-projects/` directory: `~/quicklisp/local-projects/` directory:
[CLOG for mobile](https://gitlab.com/eql/clog-for-mobile/-/blob/main/clog-2.2.tgz). [CLOG for mobile](https://gitlab.com/eql/clog-for-mobile/-/blob/main/clog-2.2.tgz).
If you want to run this example on the desktop, you need to uncomment the Qt If you want to run this example on the desktop (only tested with Qt6), you need
WebEngine dependency in [../../src/lqml.pro](../../src/lqml.pro) and rebuild to uncomment the Qt WebEngine dependency in [../../src/lqml.pro](../../src/lqml.pro)
the `lqml` executable. Additionally you need to clear the ECL cache of CLOG and rebuild the `lqml` executable. Additionally you need to clear the ECL cache
(see `~/.cache/common-lisp/ecl-...`), because the CLOG desktop version for LQML of CLOG (see `~/.cache/common-lisp/ecl-...`), because the CLOG desktop version
is different from the standard version (see `#+mobile` in CLOG fork, which is for LQML is different from the standard version (see `#+mobile` in CLOG fork,
also needed on the desktop, if used with LQML). which is also needed on the desktop, if used with LQML).

3
examples/clog-demo/run.lisp
View file

@ -2,9 +2,10 @@
(require :asdf) (require :asdf)
(progn
(pushnew :mobile *features*) (pushnew :mobile *features*)
(asdf:load-system :clog) (asdf:load-system :clog)
(setf *features* (remove :mobile *features*)))
(push (merge-pathnames "./") (push (merge-pathnames "./")
asdf:*central-registry*) asdf:*central-registry*)