cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-26 09:27:36 +01:00
Code Issues

- [GUI] added a better default directory when chosing a certificate file for import.

Browse Source
This commit is contained in:
cage 2023-03-25 16:19:19 +01:00
parent c74f501225
commit 3da987012c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gui/client/certificates-window.lisp
View File

@ -96,7 +96,7 @@
(defun on-file-choosen-clsr (entry parent &optional (initial-dir nil)) (defun on-file-choosen-clsr (entry parent &optional (initial-dir nil))
(lambda () (lambda ()
(when (gui:text (certificate-entry parent)) (when (string-not-empty-p (gui:text (certificate-entry parent)))
(setf initial-dir (fs:parent-dir-path (gui:text (certificate-entry parent))))) (setf initial-dir (fs:parent-dir-path (gui:text (certificate-entry parent)))))
(let ((file-path (gui:get-open-file :initial-dir initial-dir (let ((file-path (gui:get-open-file :initial-dir initial-dir
:parent parent :parent parent