set foreground of tooltip text so it can not be screwed up depending on colorscheme

2024-03-03 05:05:41 +01:00 · 2024-03-03 05:05:41 +01:00 · 5e4fcabf39
parent 2561014b75
commit 5e4fcabf39
1 changed files with 1 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -6078,7 +6078,7 @@ proc balloon_show {w arg pos} {
    if {[string equal [tk windowingsystem] aqua]}  {
        ::tk::unsupported::MacWindowStyle style $top help none
    }   
-    pack [message $top.txt -aspect 10000 -background lightyellow \
+    pack [message $top.txt -aspect 10000 -fg black -background lightyellow \
        -font fixed -text $arg]
    if { $pos } {
      set wmx [winfo rootx $w]