cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-16 08:00:35 +01:00
Code Issues

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

Browse Source
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 1
ev:+standard-event-priority+ ev:+standard-event-priority+
path) path)
(open-local-path (gui:get-open-file :initial-dir path (let ((file-path (gui:get-open-file :initial-dir path :parent main-window)))
:parent main-window) (set-address-bar-text main-window file-path)
main-window)) (open-local-path file-path main-window)))
(t (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) path)
:title (_ "Error") :title (_ "Error")
:parent main-window) :parent main-window)