[PATCH 2/5] gitk: Set the font for all spinbox widgets

From: Mark Hills <mark@pogo.org.uk>
Date: Dec 28, 2009, 20:04 UTC
Message-ID: <1262030643-12952-2-git-send-email-mark@pogo.org.uk>
In-Reply-To: <1262030643-12952-1-git-send-email-mark@pogo.org.uk>

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>
---
 gitk-git/gitk |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/gitk-git/gitk b/gitk-git/gitk
index c58fd58..299a2ae 100644
--- a/gitk-git/gitk
+++ b/gitk-git/gitk
@@ -1876,6 +1876,7 @@ proc setoptions {} {
     option add *Message.font uifont startupFile
     option add *Entry.font uifont startupFile
     option add *Labelframe.font uifont startupFile
+    option add *Spinbox.font textfont startupFile
 }
 
 # Make a menu and submenus.
@@ -2226,7 +2227,7 @@ proc makewindow {} {
 	-command changediffdisp -variable diffelide -value {1 0}
     ${NS}::label .bleft.mid.labeldiffcontext -text "      [mc "Lines of context"]: "
     pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
-    spinbox .bleft.mid.diffcontext -width 5 -font textfont \
+    spinbox .bleft.mid.diffcontext -width 5 \
 	-from 0 -increment 1 -to 10000000 \
 	-validate all -validatecommand "diffcontextvalidate %P" \
 	-textvariable diffcontextstring

-- 
1.6.6