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

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

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

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

@ -96,12 +96,12 @@
(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
:multiple nil :multiple nil
:title (_ "Choose the file")))) :title (_ "Choose the file"))))
(setf (gui:text entry) file-path)))) (setf (gui:text entry) file-path))))
(defun import-certificate-clsr (import-window certificate-frame) (defun import-certificate-clsr (import-window certificate-frame)