From: Mark Hills Date: Wed, 13 Jan 2010 20:40:19 GMT Subject: [PATCH 2/5] gitk: Set the font for all spinbox widgets Message-ID: <1263415222-5911-2-git-send-email-mark@pogo.org.uk> In-Reply-To: <1263415222-5911-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 --- gitk | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/gitk b/gitk index 0e430bd..e010010 100755 --- a/gitk +++ b/gitk @@ -1879,6 +1879,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. @@ -2229,7 +2230,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.5.ge408