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

gitk: Use consistent font for all text input fields 

Instead of setting the font for specific widgets, set the font for the
widget type. If themed widgets are not available, this is via the X
resources. If themed widgets are available, the theme font is used.

The exception is the SHA1 ID which is forced to use the fixed-width
font, even where themed widgets are used.

Signed-off-by: Mark Hills <mark@pogo.org.uk>
Signed-off-by: Paul Mackerras <paulus@samba.org>
maint
Mark Hills 2010-01-13 20:40:22 +00:00 committed by Paul Mackerras
parent 207ad7b887
commit b9b142ffa2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gitk
View File

@ -1877,7 +1877,8 @@ proc setoptions {} {
option add *Menubutton.font uifont startupFile option add *Menubutton.font uifont startupFile
option add *Label.font uifont startupFile option add *Label.font uifont startupFile
option add *Message.font uifont startupFile option add *Message.font uifont startupFile
option add *Entry.font uifont startupFile option add *Entry.font textfont startupFile
option add *Text.font textfont startupFile
option add *Labelframe.font uifont startupFile option add *Labelframe.font uifont startupFile
option add *Spinbox.font textfont startupFile option add *Spinbox.font textfont startupFile
option add *Listbox.font mainfont startupFile option add *Listbox.font mainfont startupFile
@ -2176,7 +2177,7 @@ proc makewindow {} {
set findstring {} set findstring {}
set fstring .tf.lbar.findstring set fstring .tf.lbar.findstring
lappend entries $fstring lappend entries $fstring
${NS}::entry $fstring -width 30 -font textfont -textvariable findstring ${NS}::entry $fstring -width 30 -textvariable findstring
trace add variable findstring write find_change trace add variable findstring write find_change
set findtype [mc "Exact"] set findtype [mc "Exact"]
set findtypemenu [makedroplist .tf.lbar.findtype \ set findtypemenu [makedroplist .tf.lbar.findtype \
@ -2219,7 +2220,7 @@ proc makewindow {} {
pack .bleft.top.search -side left -padx 5 pack .bleft.top.search -side left -padx 5
set sstring .bleft.top.sstring set sstring .bleft.top.sstring
set searchstring "" set searchstring ""
${NS}::entry $sstring -width 20 -font textfont -textvariable searchstring ${NS}::entry $sstring -width 20 -textvariable searchstring
lappend entries $sstring lappend entries $sstring
trace add variable searchstring write incrsearch trace add variable searchstring write incrsearch
pack $sstring -side left -expand 1 -fill x pack $sstring -side left -expand 1 -fill x
@ -4042,7 +4043,7 @@ proc vieweditor {top n title} {
} elseif {$type eq "path"} { } elseif {$type eq "path"} {
${NS}::label $top.l -text $title ${NS}::label $top.l -text $title
pack $top.l -in $top -side top -pady [list 3 0] -anchor w -padx 3 pack $top.l -in $top -side top -pady [list 3 0] -anchor w -padx 3
text $top.t -width 40 -height 5 -background $bgcolor -font uifont text $top.t -width 40 -height 5 -background $bgcolor
if {[info exists viewfiles($n)]} { if {[info exists viewfiles($n)]} {
foreach f $viewfiles($n) { foreach f $viewfiles($n) {
$top.t insert end $f $top.t insert end $f