diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 49a33d6..bd1ad18 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -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*)