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

- [GUI] prevented closing bookmark window if validation failed when adding a bookmark.

This commit is contained in:
cage 2023-04-09 10:14:18 +02:00
parent 6e6106e996
commit 7ae9cdae59
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gui/client/bookmark-window.lisp
View File

@ -15,10 +15,10 @@
(ev:with-enqueued-process-and-unblock () (ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-bookmark-add 1 iri section description) (comm:make-request :gemini-bookmark-add 1 iri section description)
(gui-goodies:info-dialog toplevel (gui-goodies:info-dialog toplevel
(format nil (_ "The address ~a has been bookmarked") iri))) (format nil (_ "The address ~a has been bookmarked") iri))
(gui:exit-from-toplevel toplevel))
(gui-goodies:error-dialog toplevel (gui-goodies:error-dialog toplevel
(format nil (_ "~s is not a valid gemini address.") iri))) (format nil (_ "~s is not a valid gemini address.") iri))))))
(gui:exit-from-toplevel toplevel))))
(defun init-window (master iri) (defun init-window (master iri)
(gui:with-toplevel (toplevel :master master :title (_ "Streams")) (gui:with-toplevel (toplevel :master master :title (_ "Streams"))