mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-10 12:30:19 -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*)))