From: Mark Hills Date: Mon, 28 Dec 2009 20:03:59 GMT Subject: [PATCH 1/5] gitk: Remove forced use of sans-serif font Message-ID: <1262030643-12952-1-git-send-email-mark@pogo.org.uk> The X resources set using uifont cover this case. Signed-off-by: Mark Hills --- gitk-git/gitk | 12 ------------ 1 files changed, 0 insertions(+), 12 deletions(-) diff --git a/gitk-git/gitk b/gitk-git/gitk index 364c7a8..c58fd58 100644 --- a/gitk-git/gitk +++ b/gitk-git/gitk @@ -10513,7 +10513,6 @@ proc mkfontdisp {font top which} { set fontpref($font) [set $font] ${NS}::button $top.${font}but -text $which \ -command [list choosefont $font $which] - if {!$use_ttk} {$top.${font}but configure -font optionfont} ${NS}::label $top.$font -relief flat -font $font \ -text $fontattr($font,family) -justify left grid x $top.${font}but $top.$font -sticky w @@ -10776,15 +10775,6 @@ proc doprefs {} { mkfontdisp textfont $top [mc "Diff display font"] mkfontdisp uifont $top [mc "User interface font"] - if {!$use_ttk} { - foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag - ldiff lattr extdifff.l extdifff.b bgbut fgbut - diffoldbut diffnewbut hunksepbut markbgbut selbgbut - want_ttk ttk_note} { - $top.$w configure -font optionfont - } - } - ${NS}::frame $top.buts ${NS}::button $top.buts.ok -text [mc "OK"] -command prefsok -default active ${NS}::button $top.buts.can -text [mc "Cancel"] -command prefscan -default normal @@ -11396,8 +11386,6 @@ namespace import ::msgcat::mc catch {source ~/.gitk} -font create optionfont -family sans-serif -size -12 - parsefont mainfont $mainfont eval font create mainfont [fontflags mainfont] eval font create mainfontbold [fontflags mainfont 1] -- 1.6.6