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

- [GUI] fixed regression: restored 'go up' command.

This commit is contained in:
cage 2023-05-12 14:22:39 +02:00
parent b73c0856f2
commit 097389e0b3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -852,9 +852,9 @@
(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 ((to-parent-iri (cev:enqueue-request-and-wait-results :iri-to-parent-path (let ((to-parent-iri (cev:enqueue-request-and-wait-results :iri-to-parent-path
(gui:text iri-entry)
1 1
ev:+standard-event-priority+))) ev:+standard-event-priority+
(gui:text iri-entry))))
(when (string-not-empty-p to-parent-iri) (when (string-not-empty-p to-parent-iri)
(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)))))))