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>
Pat Thoyts committed
Apr 1, 2012 at 23:00 UTC
28cb707472ad2861f9d994c279a9b6077160522e
1 file changed
+1
gitk
+1
@@ -11012,6 +11012,7 @@ proc doprefs {} {
11012
lappend pages [prefspage_general $notebook] [mc "General"]
11013
lappend pages [prefspage_colors $notebook] [mc "Colors"]
11014
lappend pages [prefspage_fonts $notebook] [mc "Fonts"]
11015
+ set col 0
11016
foreach {page title} $pages {
11017
if {$use_notebook} {
11018
$notebook add $page -text $title