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

- [GUI] moved refreshing stream table before starting streaming, to prevent a race condition.

This commit is contained in:
cage 2024-09-26 14:23:18 +02:00
parent e8ff243e93
commit 8ac8ab2489
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1170,13 +1170,13 @@ local file paths."
((or (gemini-parser:gemini-iri-p actual-iri)
needs-proxy)
(let ((stream-frame (stream-frame main-window)))
(client-stream-frame::refresh-all-streams
(client-stream-frame::table stream-frame))
(start-stream-iri (iri-ensure-path actual-iri)
main-window
use-cache
:ignore-certificate-expiration nil
:status status)
(client-stream-frame::refresh-all-streams
(client-stream-frame::table stream-frame))))
:status status)))
((iri:absolute-url-p iri)
(client-os-utils:open-resource-with-external-program main-window iri))
((or (fs:file-exists-p actual-iri)
@ -2103,7 +2103,7 @@ local file paths."
:exclusive t))
(defun init-main-window (starting-iri)
(setf gui:*debug-tk* t)
(setf gui:*debug-tk* nil)
(gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
(icons:load-icons)
(setf gui-goodies:*toplevel* gui:*tk*)