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

revision

Browse source
This commit is contained in:
pls.153 2023-11-25 13:57:20 +01:00
parent bd3181e544
commit 38f04c691c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -43,7 +43,7 @@
(push-dialog :query)
(q! |forceActiveFocus| ui:*query-input*)
(q! |showKeyboard| ui:*main* t) ; needed on recursive calls
(qsingle-shot 500 (lambda () (q! |clear| ui:*query-input*))) ; hack 2 (see 'QueryDialog.qml')
(qsingle-shot 250 (lambda () (q! |clear| ui:*query-input*))) ; hack 2 (see 'QueryDialog.qml')
(wait-for-closed)
(qlater (lambda () (editor:ensure-focus :show)))
(q< |text| ui:*query-input*)))