Artifact
715483f70a4da6864f6a15d6d5d5396494aae58d1714e20d73ebc8321dcc6a86:
Attachment "tooltip.patch" to
ticket [803a13c9f0]
added by
stevel
2021-05-06 06:19:11.
Index: lib/tooltip/tooltip.tcl
==================================================================
--- lib/tooltip/tooltip.tcl
+++ lib/tooltip/tooltip.tcl
@@ -319,10 +319,13 @@
set b $G(TOPLEVEL)
# Use late-binding msgcat (lazy translation) to support programs
# that allow on-the-fly l10n changes
lassign $msg txt img inf
$b.f.label configure -text [::msgcat::mc $txt] -image $img
+ if {$inf ne {}} {
+ set inf [::msgcat::mc $inf]
+ }
if {$inf eq {}} {
grid remove $b.f.info
} else {
$b.f.info configure -text [::msgcat::mc $inf]
grid $b.f.info
