summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPat Thoyts <patthoyts@users.sourceforge.net>2012-04-01 22:00:51 (GMT)
committerJunio C Hamano <gitster@pobox.com>2012-04-02 17:21:08 (GMT)
commit28cb707472ad2861f9d994c279a9b6077160522e (patch)
treecc7371ff221925f19cdb1087c925c9c7851cdb3a
parentb2b76d10696d945bf19318831b64d009d119e051 (diff)
downloadgit-28cb707472ad2861f9d994c279a9b6077160522e.zip
git-28cb707472ad2861f9d994c279a9b6077160522e.tar.gz
git-28cb707472ad2861f9d994c279a9b6077160522e.tar.bz2
gitk: fix tabbed preferences construction when using tcl 8.4
In 8.5 the incr command creates the target variable if it does not exist but in 8.4 using incr on a non-existing variable raises an error. Ensure we have created our counter variable when creating the tabbed dialog for non-themed preferences. Reported-by: Ramsay Jones <ramsay@ramsay1.demon.co.uk> Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net> Signed-off-by: Junio C Hamano <gitster@pobox.com>
-rwxr-xr-xgitk1
1 files changed, 1 insertions, 0 deletions
diff --git a/gitk b/gitk
index 651b740..68cd1a1 100755
--- 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