gitk: fix tabbed preferences construction when using tcl 8.4

[git.git] / gitk

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