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

revisions

Browse source
This commit is contained in:
pls.153 2025-04-20 18:55:49 +02:00
parent 0776e039c5
commit d1c19ec74c
3 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
examples/clog-demo/clog-assets/demos/01-demo.lisp
View file

@ -133,7 +133,6 @@
(defun on-click (obj)
(let ((app (connection-data-item obj "app-data"))
(btn-txt (text obj)))
;; LQML note: ignore whitespace (see hack in 'boot.js')
(cond ((search "<--" btn-txt) (setf (snake-direction app) :left))
((search "-->" btn-txt) (setf (snake-direction app) :right))
((search "-^-" btn-txt) (setf (snake-direction app) :up))

2
examples/clog-demo/clog-assets/static-files/js/boot.js
View file

@ -112,7 +112,7 @@ function Open_ws() {
console.log ('connection successful');
Setup_ws();
}
pingerid = setInterval (function () {Pingws ();}, 10000);
pingerid = setInterval (function () {Ping_ws ();}, 10000);
} else {
document.writeln ('If you are seeing this your browser or your connection to the internet is blocking websockets.');
}

1
examples/clog-demo/platforms/android/AndroidManifest.xml
View file

@ -5,7 +5,6 @@
<uses-permission android:name="android.permission.INTERNET"/>
<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"/>
<!-- The following comment will be replaced upon deployment with default features based on the dependencies of the application.
Remove the comment if you do not require these default features. -->