Новая сборка

2026-04-08 16:50:52 +03:00
parent f8a406583a
commit 82b94e5b4e
3 changed files with 14 additions and 3 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1262,7 +1262,7 @@ proc OpenURL {url} {

 proc ShowTooltip {widget showingText} {
    if [winfo exists .baloonTip] {destroy .baloonTip}
-    set tip [toplevel .baloonTip -bg yellow -bd 1 -relief solid]
+    set tip [toplevel .baloonTip -bg white -bd 1 -relief solid]
    wm transient $tip .
    wm overrideredirect $tip 1
    set x [winfo pointerx $widget]
@@ -1274,4 +1274,3 @@ proc ShowTooltip {widget showingText} {
    pack $tip.l
    after 5000 [list destroy $tip]
 }
-