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*
(unless (x:empty-string 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)
(push-dialog :query)
(q! |forceActiveFocus| ui:*query-input*)
(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)
(qlater (lambda () (editor:ensure-focus :show)))
(q< |text| ui:*query-input*)))

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

@ -1,5 +1,5 @@
<?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.
Remove the comment if you do not require these default permissions. -->
<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("editor:ensure-output-visible")
}
onTextChanged: if (length === 0) main.ensureOutputVisible() // hack (see 'dialogs.lisp')
}
Text {

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

@ -23,11 +23,10 @@ StackView {
return (h === 0) ? main.height : h
}
function divideHeight(factor) { return (availableHeight() - rectCommand.height) * factor }
function isLandscape() { return (Screen.primaryOrientation === Qt.LandscapeOrientation) }
function keyboardVisible() { return Qt.inputMethod.visible }
function showKeyboard(show) { show ? Qt.inputMethod.show() : Qt.inputMethod.hide() }
function ensureOutputVisible() { output.positionViewAtEnd() }
function divideHeight(factor) { return (availableHeight() - rectCommand.height) * factor }
function isLandscape() { return (Screen.primaryOrientation === Qt.LandscapeOrientation) }
function keyboardVisible() { return Qt.inputMethod.visible }
function showKeyboard(show) { show ? Qt.inputMethod.show() : Qt.inputMethod.hide() }
// show/hide dialogs