kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

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>
maint
Guillermo S. Romero 2016-02-04 03:32:19 +01:00 committed by Paul Mackerras
parent ffbd0d77eb
commit 22a713c72d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gitk
View File

@ -3021,7 +3021,7 @@ proc bindall {event action} {
} }


proc about {} { proc about {} {
global uifont NS global bgcolor NS
set w .about set w .about
if {[winfo exists $w]} { if {[winfo exists $w]} {
raise $w raise $w
@ -3036,7 +3036,7 @@ Gitk - a commit viewer for git
Copyright \u00a9 2005-2014 Paul Mackerras Copyright \u00a9 2005-2014 Paul Mackerras


Use and redistribute under the terms of the GNU General Public License"] \ Use and redistribute under the terms of the GNU General Public License"] \
-justify center -aspect 400 -border 2 -bg white -relief groove -justify center -aspect 400 -border 2 -bg $bgcolor -relief groove
pack $w.m -side top -fill x -padx 2 -pady 2 pack $w.m -side top -fill x -padx 2 -pady 2
${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active ${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
pack $w.ok -side bottom pack $w.ok -side bottom
@ -3047,7 +3047,7 @@ Use and redistribute under the terms of the GNU General Public License"] \
} }


proc keys {} { proc keys {} {
global NS global bgcolor NS
set w .keys set w .keys
if {[winfo exists $w]} { if {[winfo exists $w]} {
raise $w raise $w
@ -3103,7 +3103,7 @@ proc keys {} {
[mc "<%s-minus> Decrease font size" $M1T] [mc "<%s-minus> Decrease font size" $M1T]
[mc "<F5> Update"] [mc "<F5> Update"]
" \ " \
-justify left -bg white -border 2 -relief groove -justify left -bg $bgcolor -border 2 -relief groove
pack $w.m -side top -fill both -padx 2 -pady 2 pack $w.m -side top -fill both -padx 2 -pady 2
${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active ${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
bind $w <Key-Escape> [list destroy $w] bind $w <Key-Escape> [list destroy $w]