From 804d674469dc08e5b32edb2e1f251d2b68711efd Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Thu, 15 Aug 2013 03:56:11 +0000
Subject: Bug [c597acdab3]: Call [$pb step] in tail position in
 ttk::progressbar::Autoincrement, so that the widget is in a consistent state
 when any write traces on the linked -variable are fired.

---
 library/ttk/progress.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/ttk/progress.tcl b/library/ttk/progress.tcl
index b6e2ffb..34dce72 100644
--- a/library/ttk/progress.tcl
+++ b/library/ttk/progress.tcl
@@ -18,10 +18,10 @@ proc ttk::progressbar::Autoincrement {pb steptime stepsize} {
 	return
     }
 
-    $pb step $stepsize
-
     set Timers($pb) [after $steptime \
     	[list ttk::progressbar::Autoincrement $pb $steptime $stepsize] ]
+
+    $pb step $stepsize
 }
 
 # ttk::progressbar::start --
-- 
cgit v0.12