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

- prevented crash in dialog list window, the event object needed to be decodified.

This commit is contained in:
cage 2022-01-02 17:47:30 +01:00
parent 1f587b6f17
commit 00cfe36e90
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -527,7 +527,7 @@ will fire the `callback' function (with the selected field from `all-fields'
(select-row high-level-window 0) (select-row high-level-window 0)
(draw) (draw)
(loop named inner (loop named inner
for c = (get-wide-event low-level-window) for c = (tui:decode-key-event (get-wide-event low-level-window))
while (string/= c "q") while (string/= c "q")
do do
(cond (cond
@ -537,7 +537,7 @@ will fire the `callback' function (with the selected field from `all-fields'
((string= c :down) ((string= c :down)
(unselect-all high-level-window) (unselect-all high-level-window)
(row-move high-level-window 1)) (row-move high-level-window 1))
((string= c #\Newline) ((string= c "^J")
(let ((selected-fields (selected-row-fields high-level-window)) (let ((selected-fields (selected-row-fields high-level-window))
(selected-text (selected-text (selected-row high-level-window)))) (selected-text (selected-text (selected-row high-level-window))))
(funcall callback selected-text selected-fields)))) (funcall callback selected-text selected-fields))))