X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=gitk-git%2Fgitk;h=22270ce46bb73bc8fc8e82409ef0179576f7ba20;hb=8f63da13f8fdd9b72e0ce57f3fb78e93f9144b43;hp=651b7400436c0a1eb4dfa029a9fee187060fc44d;hpb=b476064544b9a64d062acc5e3c6be831ebb721cb;p=~andy%2Fgit

diff --git a/gitk-git/gitk b/gitk-git/gitk
index 651b74004..22270ce46 100755
--- a/gitk-git/gitk
+++ b/gitk-git/gitk
@@ -10795,7 +10795,7 @@ proc fontok {} {
     if {$fontparam(slant) eq "italic"} {
 	lappend fontpref($f) "italic"
     }
-    set w $prefstop.$f
+    set w $prefstop.notebook.fonts.$f
     $w conf -text $fontparam(family) -font $fontpref($f)
 
     fontcan
@@ -11012,6 +11012,7 @@ proc doprefs {} {
     lappend pages [prefspage_general $notebook] [mc "General"]
     lappend pages [prefspage_colors $notebook] [mc "Colors"]
     lappend pages [prefspage_fonts $notebook] [mc "Fonts"]
+    set col 0
     foreach {page title} $pages {
 	if {$use_notebook} {
 	    $notebook add $page -text $title