From 097389e0b3e9d11c721484c51e8d42edbbe9722a Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 12 May 2023 14:22:39 +0200 Subject: [PATCH] - [GUI] fixed regression: restored 'go up' command. --- src/gui/client/main-window.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index fc7e54f..83c0c44 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -852,9 +852,9 @@ (with-accessors ((tool-bar tool-bar)) main-window (with-accessors ((iri-entry iri-entry)) tool-bar (let ((to-parent-iri (cev:enqueue-request-and-wait-results :iri-to-parent-path - (gui:text iri-entry) 1 - ev:+standard-event-priority+))) + ev:+standard-event-priority+ + (gui:text iri-entry)))) (when (string-not-empty-p to-parent-iri) (setf (gui:text iri-entry) to-parent-iri) (open-iri to-parent-iri main-window t)))))))