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

- [GUI] prevented crash when no file has been chosen to save a link's content.

This commit is contained in:
cage 2023-07-12 15:36:05 +02:00
parent e9126fb615
commit 6a601209a3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -485,8 +485,9 @@
:initial-dir "."
:parent main-window
:title (_ "Choose a file for saving")))
(input-file (gui-goodies:with-busy* (main-window)
(slurp-iri main-window link-value))))
(input-file (when (string-not-empty-p output-file)
(gui-goodies:with-busy* (main-window)
(slurp-iri main-window link-value)))))
(fs:copy-a-file input-file output-file :overwrite t))))
(lambda ()
(let* ((popup-menu (gui:make-menu nil (_"link menu")))