cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [TUI] added 'C-g' keybinding to close the blocking dialog window.

This commit is contained in:
cage 2024-03-02 16:11:13 +01:00
parent 1f02511525
commit 6472ede4b0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/line-oriented-window.lisp
View File

@ -548,7 +548,8 @@ will fire the `callback' function (with the selected field from `all-fields'
(draw)
(loop named inner
for c = (tui:decode-key-event (c:get-wide-event low-level-window))
while (string/= c "q")
while (and (string/= c "q")
(string/= c "^G"))
do
(cond
((string= c :key-arrow-up)