From 2c41a4f72923e11a7beeb79672d3de3f3110177e Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 21 Sep 2024 11:45:01 +0200 Subject: [PATCH] - [GUI] updated address bar when opening a directory and then a file. --- src/gui/client/main-window.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 4b96388..70925f5 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -1052,11 +1052,11 @@ local file paths." 1 ev:+standard-event-priority+ path) - (open-local-path (gui:get-open-file :initial-dir path - :parent main-window) - main-window)) + (let ((file-path (gui:get-open-file :initial-dir path :parent main-window))) + (set-address-bar-text main-window file-path) + (open-local-path file-path main-window))) (t - (when (gui:ask-yesno (format nil (_ "No such file or directory: ~s, search genspace instead?") + (when (gui:ask-yesno (format nil (_ "No such file or directory: ~s, search gemspace instead?") path) :title (_ "Error") :parent main-window)