From 2b19e708d940da6a39d7fcf07a5597c3c01f59ba Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 7 Apr 2023 12:30:54 +0200 Subject: [PATCH] - [GUI] ensured the address bar is updated whan a link has been clicked. --- src/gui/client/main-window.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index d7842af..337a72c 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -252,8 +252,11 @@ (gen-ir-access pre-alt-text) (defun link-click-mouse-1-callback-clsr (link-value main-window &key (use-cache t)) - (lambda () - (open-iri link-value main-window use-cache))) + (with-accessors ((tool-bar tool-bar)) main-window + (with-accessors ((iri-entry iri-entry)) tool-bar + (lambda () + (setf (gui:text iri-entry) link-value) + (open-iri link-value main-window use-cache))))) (defun absolutize-link (request-iri link-value) (let ((parsed-request-iri (iri:iri-parse request-iri)))