From 9a937ecd70fec855511347143df6910576d73c35 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Wed, 16 Apr 2025 00:41:43 +0200
Subject: [PATCH] Balloon help: also cancel scheduled future show window
 actions on Leave or FocusOut events

---
 src/xschem.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index a4f66c3f..67d39784 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -7467,9 +7467,9 @@ proc get_file_path {ff} {
 # Balloon help system, from https://wiki.tcl-lang.org/page/balloon+help
 #
 proc balloon {w help {pos 1}} {
-    bind $w <Any-Enter> "after 1000 [list balloon_show %W [list $help] $pos]"
-    bind $w <Any-Leave> "destroy %W.balloon"
-    bind $w <FocusOut> "destroy %W.balloon"
+    bind $w <Any-Enter> "after 1000   [list balloon_show %W [list $help] $pos]"
+    bind $w <Any-Leave> "after cancel [list balloon_show %W [list $help] $pos]; destroy %W.balloon"
+    bind $w <FocusOut>  "after cancel [list balloon_show %W [list $help] $pos]; destroy %W.balloon"
 }
 
 ### pos: