Change button color.

This commit is contained in:
Dianne Skoll
2025-10-26 16:46:14 -04:00
parent 65cca1fd8f
commit 3e248c069e

View File

@@ -5002,7 +5002,7 @@ proc ShowManPage { cmd jump destroy } {
$w.t tag configure underline -underlinefg $link_color
}
scrollbar $w.sb -orient vertical -command "$w.t yview"
button $w.ok -text OK -command [list destroy $w] -foreground $Option(TextColor) -background $Option(BackgroundColor) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
button $w.ok -text OK -command [list destroy $w] -foreground $Option(LabelColor) -background $Option(BackgroundColor) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
grid $w.t -row 0 -column 0 -sticky nsew
grid $w.sb -row 0 -column 1 -sticky ns
grid $w.ok -row 1 -column 0 -stick w