Tk Library Source Code

Artifact e596b09a6a50ff5ebea208a0faca8dce9a04432fed7ccbd1e0da091451c65856:

Attachment "ttip.diff" to ticket [9924aee881] added by ralfixx 2025-07-30 16:54:34. (unpublished)

---

diff -u tklib/modules/tooltip/tooltip.tcl\~ tklib/modules/tooltip/tooltip.tcl
--- tklib/modules/tooltip/tooltip.tcl~	2025-06-18 12:35:55.978581092 +0200
+++ tklib/modules/tooltip/tooltip.tcl	2025-07-30 18:08:47.683515274 +0200
@@ -129,7 +129,7 @@
     }]
 
     bind Menu <<MenuSelect>>	[namespace code { menuMotion %W }]
-    bind Tooltip <Leave>	[namespace code [list hide 1]] ; # fade ok
+    bind Tooltip <Leave>	[namespace code [list hide 1 %d]] ; # fade ok
     bind Tooltip <Any-KeyPress>	[namespace code hide]
     bind Tooltip <Any-Button>	[namespace code hide]
 }
@@ -548,9 +548,14 @@
     }
 }
 
-proc ::tooltip::hide {{fadeOk 0}} {
+proc ::tooltip::hide {{fadeOk 0} {detail ""}} {
     variable G
 
+    if {$detail eq "NotifyInferior"} {
+	# ignore moving to child
+	return
+    }
+
     after cancel $G(AFTERID)
     after cancel $G(FADEID)
     if {$fadeOk && $G(fade)} {

Diff finished.  Wed Jul 30 18:50:21 2025