cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-28 03:59:17 +01:00
Code Issues

- [GUI] - discarded rest of a stale rendering when bringing a stream to foreground.

Browse Source
This commit is contained in:
cage 2023-08-18 15:05:18 +02:00
parent 7d4612350e
commit 65482c36bb
2 changed files with 26 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/gui/client/main-window.lisp
View File

@ -1389,21 +1389,21 @@ local file paths."
(multiple-value-bind (select-bg select-fg)
(gui-conf:main-window-select-colors)
(setf gemtext-widget (make-instance 'gui:scrolled-text
:background (gui-conf:gemini-window-colors)
:background (gui-conf:gemini-window-colors)
:selectbackground select-bg
:selectforeground select-fg
:insertwidth 0
:takefocus (nodgui.utils:lisp-bool->tcl nil)
:padx padding-pixel
:master gemini-paned-frame
:read-only t
:font gemtext-font)))
:takefocus (nodgui.utils:lisp-bool->tcl nil)
:padx padding-pixel
:master gemini-paned-frame
:read-only t
:font gemtext-font)))
(gui:configure gemtext-widget :wrap :word))
(setf info-frame (make-instance 'gui:frame :master object :relief :sunken :borderwidth 1))
(setf info-text (make-instance 'gui:text :height 2 :wrap :none :master info-frame))
(gui:configure info-text :font gui:+tk-small-caption-font+)
(setf search-frame (client-search-frame:init-frame object))
(setf stream-frame (client-stream-frame:init-frame main-paned-frame))
(setf stream-frame (client-stream-frame:init-frame main-paned-frame object))
(gui:grid info-text 0 0 :sticky :news)
(gui-goodies:gui-resize-grid-all info-frame)
(gui:grid tool-bar 0 0 :sticky :news)
@ -1512,10 +1512,16 @@ local file paths."
(defun get-address-bar-text (main-window)
(trim-blanks (gui:text (iri-entry (tool-bar main-window)))))
(defmacro with-interrupt-rendering-enqueue-restart-rendering
((main-window &optional (priority program-events:+standard-event-priority+)) &body body)
`(progn
(interrupt-rendering ,main-window)
(ev:with-enqueued-process-and-unblock ,priority
(restart-rendering ,main-window)
,@body)))
(defun scale-gemtext (main-window offset)
(interrupt-rendering main-window)
(ev:with-enqueued-process-and-unblock ()
(restart-rendering main-window)
(with-interrupt-rendering-enqueue-restart-rendering (main-window ())
(clear-gemtext main-window)
(setf (gemtext-font-scaling main-window)
(if offset

17
src/gui/client/stream-frame.lisp
View File

@ -79,18 +79,21 @@
(let ((new-rows (all-rows)))
(resync-rows stream-table new-rows))))))))
(defun revive-stream-clsr (stream-table)
(defun revive-stream-clsr (stream-table main-window)
(with-accessors ((tree gui-goodies:tree)) stream-table
(lambda ()
(client-main-window::interrupt-rendering main-window)
(a:when-let* ((selections (gui:treeview-get-selection tree))
(selection (first selections)))
(let* ((url (gui:id selection))
(new-rows (all-rows)))
(client-main-window:set-address-bar-text gui-goodies:*main-frame* url)
(client-main-window::open-iri url gui-goodies:*main-frame* t)
(resync-rows stream-table new-rows))))))
(ev:with-enqueued-process-and-unblock ()
(client-main-window::restart-rendering main-window)
(client-main-window:set-address-bar-text main-window url)
(resync-rows stream-table new-rows))
(client-main-window::open-iri url main-window t))))))
(defun init-frame (parent-frame)
(defun init-frame (parent-frame main-window)
(let* ((wrapper-frame (make-instance 'stream-frame :master parent-frame))
(table (make-instance 'stream-table :master wrapper-frame))
(buttons-frame (make-instance 'gui:frame :master wrapper-frame))
@ -105,7 +108,7 @@
(revive-button (make-instance 'gui:button
:master buttons-frame
:image icons:*document-accept*
:command (revive-stream-clsr table)))
:command (revive-stream-clsr table main-window)))
(close-button (make-instance 'gui:button
:image icons:*cross*
:master buttons-frame
@ -128,5 +131,5 @@
#$<Double-1>$
(lambda (e)
(declare (ignore e))
(funcall (revive-stream-clsr table))))
(funcall (revive-stream-clsr table main-window))))
wrapper-frame))