cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-25 09:17:45 +01:00
Code Issues

- [GUI] fixed messed up callbacks for 'up' and 'back' buttons.

Browse Source
This commit is contained in:
cage 2023-04-06 18:57:20 +02:00
parent 6b10f75c91
commit 0aefb5e47e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -677,7 +677,7 @@
(let* ((iri (trim-blanks (gui:text iri-entry)))) (let* ((iri (trim-blanks (gui:text iri-entry))))
(open-iri iri main-window nil)))))) (open-iri iri main-window nil))))))
(defun back-iri-clsr (main-window) (defun up-iri-clsr (main-window)
(lambda () (lambda ()
(with-accessors ((tool-bar tool-bar)) main-window (with-accessors ((tool-bar tool-bar)) main-window
(with-accessors ((iri-entry iri-entry)) tool-bar (with-accessors ((iri-entry iri-entry)) tool-bar
@ -689,14 +689,13 @@
(setf (gui:text iri-entry) to-parent-iri) (setf (gui:text iri-entry) to-parent-iri)
(open-iri to-parent-iri main-window t))))))) (open-iri to-parent-iri main-window t)))))))
(defun up-iri-clsr (main-window) (defun back-iri-clsr (main-window)
(lambda () (lambda ()
(with-accessors ((tool-bar tool-bar)) main-window (with-accessors ((tool-bar tool-bar)) main-window
(with-accessors ((iri-entry iri-entry)) tool-bar (with-accessors ((iri-entry iri-entry)) tool-bar
(let ((iri-visited (cev:enqueue-request-and-wait-results :iri-to-parent-path (let ((iri-visited (cev:enqueue-request-and-wait-results :gemini-pop-url-from-history
1 1
ev:+standard-event-priority+ ev:+standard-event-priority+)))
(gui:text iri-entry))))
(when (string-not-empty-p iri-visited) (when (string-not-empty-p iri-visited)
(setf (gui:text iri-entry) iri-visited) (setf (gui:text iri-entry) iri-visited)
(open-iri iri-visited main-window t))))))) (open-iri iri-visited main-window t)))))))