Make sure .balloonhelp doesn't exist if we try to create it.

2026-04-16 06:18:47 +02:00 · 2025-11-02 09:20:07 -05:00
parent d22f9979a5
commit 612f3e7f16
1 changed files with 1 additions and 0 deletions
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -5059,6 +5059,7 @@ proc balloon_popup_help { w } {
 	return
    }
    set h .balloonhelp
+    catch { destroy $h }
    toplevel $h -bg #000000
    label $h.l -text $Balloon(helptext$w) -wraplength 200 -justify left -bg #FFFFC0 -bd 0
    pack $h.l -padx 1 -pady 1 -ipadx 2 -ipady 1