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

- [GUI] ensured the address bar is updated whan a link has been clicked.

This commit is contained in:
cage 2023-04-07 12:30:54 +02:00
parent 8ea9177f91
commit 2b19e708d9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -252,8 +252,11 @@
(gen-ir-access pre-alt-text) (gen-ir-access pre-alt-text)
(defun link-click-mouse-1-callback-clsr (link-value main-window &key (use-cache t)) (defun link-click-mouse-1-callback-clsr (link-value main-window &key (use-cache t))
(lambda () (with-accessors ((tool-bar tool-bar)) main-window
(open-iri link-value main-window use-cache))) (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) (defun absolutize-link (request-iri link-value)
(let ((parsed-request-iri (iri:iri-parse request-iri))) (let ((parsed-request-iri (iri:iri-parse request-iri)))