gitk: fix setting font display with new tabbed dialog layout.

diff --git a/gitk b/gitk
index 68cd1a1fc51379f8e4995ebf408d229adce6088d..22270ce46bb73bc8fc8e82409ef0179576f7ba20 100755 (executable)
--- a/gitk
+++ b/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