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

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

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))))
(open-iri iri main-window nil))))))
(defun back-iri-clsr (main-window)
(defun up-iri-clsr (main-window)
(lambda ()
(with-accessors ((tool-bar tool-bar)) main-window
(with-accessors ((iri-entry iri-entry)) tool-bar
@ -689,14 +689,13 @@
(setf (gui:text iri-entry) to-parent-iri)
(open-iri to-parent-iri main-window t)))))))
(defun up-iri-clsr (main-window)
(defun back-iri-clsr (main-window)
(lambda ()
(with-accessors ((tool-bar tool-bar)) main-window
(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
ev:+standard-event-priority+
(gui:text iri-entry))))
ev:+standard-event-priority+)))
(when (string-not-empty-p iri-visited)
(setf (gui:text iri-entry) iri-visited)
(open-iri iri-visited main-window t)))))))