From 53ad411514de8f1cb62e9ce175782f32df914b9d Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 27 Jul 2023 16:26:33 +0200
Subject: [PATCH] - [GUI] refreshed streams frame when loading an URL.

---
 src/gui/client/main-window.lisp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index 8044480..cc15cb4 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -876,10 +876,13 @@ local file paths."
             ((gemini-client:absolute-titan-url-p actual-iri)
              (client-titan-window:init-window main-window actual-iri))
             ((gemini-parser:gemini-iri-p actual-iri)
-             (start-stream-iri (iri-ensure-path actual-iri)
-                               main-window
-                               use-cache
-                               status))
+             (let ((stream-frame (stream-frame main-window)))
+               (start-stream-iri (iri-ensure-path actual-iri)
+                                 main-window
+                                 use-cache
+                                 status)
+               (client-stream-frame::refresh-all-streams
+                (client-stream-frame::table stream-frame))))
             ((or (null (uri:scheme parsed-iri))
                  (string= (uri:scheme parsed-iri)
                           constants:+file-scheme+))