1
0
Fork 0

- moved window that got the focus on top of the windows stack, to be sure will be visible to the user when redrawing the terminal.

This commit is contained in:
cage 2022-08-05 11:52:51 +02:00
parent 6e883ca21b
commit ed1bd71bc5
2 changed files with 7 additions and 6 deletions

View File

@ -432,6 +432,7 @@ Metadata includes:
win)
(remove-focus-to-all-windows)
(setf (windows:in-focus win) t)
(stack:stack-raise-to-top windows::*window-stack* win)
(windows:draw-all :clear nil)
(when info-change-focus-message
(info-message info-change-focus-message +maximum-event-priority+))

View File

@ -386,12 +386,12 @@ height, position and so on)"
(c:refresh-marked))
(defun draw-all (&key (clear t))
(let ((to-be-drawn (remove-intersecting-window)))
(loop for window in to-be-drawn do
(when (win-visible-p window)
(when clear
(win-clear window))
(draw window)))))
(let ((to-be-drawn (remove-intersecting-window)))
(loop for window in to-be-drawn do
(when (win-visible-p window)
(when clear
(win-clear window))
(draw window)))))
(defun refresh-config-all ()
(if command-line:*gemini-full-screen-mode*