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

- [GUI] updated address bar when opening a directory and then a file.

This commit is contained in:
cage 2024-09-21 11:45:01 +02:00
parent d507278f67
commit 2c41a4f729
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)