mirror of https://codeberg.org/cage/tinmop/
- [GUI] moved refreshing stream table before starting streaming, to prevent a race condition.
This commit is contained in:
parent
e8ff243e93
commit
8ac8ab2489
|
@ -1170,13 +1170,13 @@ local file paths."
|
||||||
((or (gemini-parser:gemini-iri-p actual-iri)
|
((or (gemini-parser:gemini-iri-p actual-iri)
|
||||||
needs-proxy)
|
needs-proxy)
|
||||||
(let ((stream-frame (stream-frame main-window)))
|
(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)
|
(start-stream-iri (iri-ensure-path actual-iri)
|
||||||
main-window
|
main-window
|
||||||
use-cache
|
use-cache
|
||||||
:ignore-certificate-expiration nil
|
:ignore-certificate-expiration nil
|
||||||
:status status)
|
:status status)))
|
||||||
(client-stream-frame::refresh-all-streams
|
|
||||||
(client-stream-frame::table stream-frame))))
|
|
||||||
((iri:absolute-url-p iri)
|
((iri:absolute-url-p iri)
|
||||||
(client-os-utils:open-resource-with-external-program main-window iri))
|
(client-os-utils:open-resource-with-external-program main-window iri))
|
||||||
((or (fs:file-exists-p actual-iri)
|
((or (fs:file-exists-p actual-iri)
|
||||||
|
@ -2103,7 +2103,7 @@ local file paths."
|
||||||
:exclusive t))
|
:exclusive t))
|
||||||
|
|
||||||
(defun init-main-window (starting-iri)
|
(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)
|
(gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
|
||||||
(icons:load-icons)
|
(icons:load-icons)
|
||||||
(setf gui-goodies:*toplevel* gui:*tk*)
|
(setf gui-goodies:*toplevel* gui:*tk*)
|
||||||
|
|
Loading…
Reference in New Issue