mirror of https://codeberg.org/cage/tinmop/
- 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:
parent
6e883ca21b
commit
ed1bd71bc5
|
@ -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+))
|
||||
|
|
|
@ -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*
|
||||
|
|
Loading…
Reference in New Issue