gitk: Set the font for all spinbox widgets
Use the X resources to set the font, removing the need to set the font for specific widgets. Signed-off-by: Mark Hills <mark@pogo.org.uk> Signed-off-by: Paul Mackerras <paulus@samba.org>
Mark Hills committed
Jan 13, 2010 at 20:40 UTC
0933b04e5204674784b3ff7bcff68b663e633f8b
1 file changed
+2
-1
gitk
+2
-1
@@ -1879,6 +1879,7 @@ proc setoptions {} {
1879
option add *Message.font uifont startupFile
1880
option add *Entry.font uifont startupFile
1881
option add *Labelframe.font uifont startupFile
1882
+ option add *Spinbox.font textfont startupFile
1883
}
1884
1885
# Make a menu and submenus.
@@ -2229,7 +2230,7 @@ proc makewindow {} {
2230
-command changediffdisp -variable diffelide -value {1 0}
2231
${NS}::label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: "
2232
pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2232
- spinbox .bleft.mid.diffcontext -width 5 -font textfont \
2233
+ spinbox .bleft.mid.diffcontext -width 5 \
2234
-from 0 -increment 1 -to 10000000 \
2235
-validate all -validatecommand "diffcontextvalidate %P" \
2236
-textvariable diffcontextstring