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 2023-11-25 17:23:26 +01:00
parent 38f04c691c
commit b7adf74b36
4 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/cl-repl/lisp/dialogs.lisp
View file

@ -38,12 +38,12 @@
(qrun* (qrun*
(unless (x:empty-string query) (unless (x:empty-string query)
(q> |text| ui:*query-text* (string-trim '(#\Newline) query))) (q> |text| ui:*query-text* (string-trim '(#\Newline) query)))
(q> |text| ui:*query-input* " ") ; hack 1 (see 'QueryDialog.qml') (q! |clear| ui:*query-input*)
(wait-while-transition) (wait-while-transition)
(push-dialog :query) (push-dialog :query)
(q! |forceActiveFocus| ui:*query-input*) (q! |forceActiveFocus| ui:*query-input*)
(q! |showKeyboard| ui:*main* t) ; needed on recursive calls (q! |showKeyboard| ui:*main* t) ; needed on recursive calls
(qsingle-shot 250 (lambda () (q! |clear| ui:*query-input*))) ; hack 2 (see 'QueryDialog.qml') (qsingle-shot 500 (lambda () (q! |positionViewAtEnd| ui:*output*)))
(wait-for-closed) (wait-for-closed)
(qlater (lambda () (editor:ensure-focus :show))) (qlater (lambda () (editor:ensure-focus :show)))
(q< |text| ui:*query-input*))) (q< |text| ui:*query-input*)))

2
examples/cl-repl/platforms/android/AndroidManifest.xml
View file

@ -1,5 +1,5 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<manifest package="org.eql5.android.repl" xmlns:android="http://schemas.android.com/apk/res/android" android:versionName="1.0.67" android:versionCode="129" android:installLocation="auto"> <manifest package="org.eql5.android.repl" xmlns:android="http://schemas.android.com/apk/res/android" android:versionName="1.0.67" android:versionCode="130" android:installLocation="auto">
<!-- The following comment will be replaced upon deployment with default permissions based on the dependencies of the application. <!-- The following comment will be replaced upon deployment with default permissions based on the dependencies of the application.
Remove the comment if you do not require these default permissions. --> Remove the comment if you do not require these default permissions. -->
<uses-permission android:name="android.permission.INTERNET"/> <uses-permission android:name="android.permission.INTERNET"/>

2
examples/cl-repl/qml/ext/QueryDialog.qml
View file

@ -35,8 +35,6 @@ Popup {
Lisp.call("dialogs:exited") Lisp.call("dialogs:exited")
Lisp.call("editor:ensure-output-visible") Lisp.call("editor:ensure-output-visible")
} }
onTextChanged: if (length === 0) main.ensureOutputVisible() // hack (see 'dialogs.lisp')
} }
Text { Text {

1
examples/cl-repl/qml/main.qml
View file

@ -27,7 +27,6 @@ StackView {
function isLandscape() { return (Screen.primaryOrientation === Qt.LandscapeOrientation) } function isLandscape() { return (Screen.primaryOrientation === Qt.LandscapeOrientation) }
function keyboardVisible() { return Qt.inputMethod.visible } function keyboardVisible() { return Qt.inputMethod.visible }
function showKeyboard(show) { show ? Qt.inputMethod.show() : Qt.inputMethod.hide() } function showKeyboard(show) { show ? Qt.inputMethod.show() : Qt.inputMethod.hide() }
function ensureOutputVisible() { output.positionViewAtEnd() }
// show/hide dialogs // show/hide dialogs