From 7ae9cdae59d6ebcc5a765513add6fe91043dc25b Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 9 Apr 2023 10:14:18 +0200 Subject: [PATCH] - [GUI] prevented closing bookmark window if validation failed when adding a bookmark. --- src/gui/client/bookmark-window.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/gui/client/bookmark-window.lisp b/src/gui/client/bookmark-window.lisp index cf2cd13..fe779e7 100644 --- a/src/gui/client/bookmark-window.lisp +++ b/src/gui/client/bookmark-window.lisp @@ -15,10 +15,10 @@ (ev:with-enqueued-process-and-unblock () (comm:make-request :gemini-bookmark-add 1 iri section description) (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 - (format nil (_ "~s is not a valid gemini address.") iri))) - (gui:exit-from-toplevel toplevel)))) + (format nil (_ "~s is not a valid gemini address.") iri)))))) (defun init-window (master iri) (gui:with-toplevel (toplevel :master master :title (_ "Streams"))