gitk: Follow themed bgcolor in help dialogs
Make Help > About & Key bindings dialogs readable if theme has changed font color to something incompatible with white. Signed-off-by: Guillermo S. Romero <gsromero@infernal-iceberg.com> Signed-off-by: Paul Mackerras <paulus@samba.org>
Guillermo S. Romero committed
Feb 4, 2016 at 03:32 UTC
22a713c72df8b6799c59287c50cee44c4a6db51e
1 file changed
+4
-4
gitk
+4
-4
@@ -3021,7 +3021,7 @@ proc bindall {event action} {
3021
}
3022
3023
proc about {} {
3024
- global uifont NS
3024
+ global bgcolor NS
3025
set w .about
3026
if {[winfo exists $w]} {
3027
raise $w
@@ -3036,7 +3036,7 @@ Gitk - a commit viewer for git
3036
Copyright \u00a9 2005-2014 Paul Mackerras
3037
3038
Use and redistribute under the terms of the GNU General Public License"] \
3039
- -justify center -aspect 400 -border 2 -bg white -relief groove
3039
+ -justify center -aspect 400 -border 2 -bg $bgcolor -relief groove
3040
pack $w.m -side top -fill x -padx 2 -pady 2
3041
${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
3042
pack $w.ok -side bottom
@@ -3047,7 +3047,7 @@ Use and redistribute under the terms of the GNU General Public License"] \
3047
}
3048
3049
proc keys {} {
3050
- global NS
3050
+ global bgcolor NS
3051
set w .keys
3052
if {[winfo exists $w]} {
3053
raise $w
@@ -3103,7 +3103,7 @@ proc keys {} {
3103
[mc "<%s-minus> Decrease font size" $M1T]
3104
[mc "<F5> Update"]
3105
" \
3106
- -justify left -bg white -border 2 -relief groove
3106
+ -justify left -bg $bgcolor -border 2 -relief groove
3107
pack $w.m -side top -fill both -padx 2 -pady 2
3108
${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
3109
bind $w <Key-Escape> [list destroy $w]