diff options
| author | jenglish <jenglish@flightlab.com> | 2013-08-15 03:56:11 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2013-08-15 03:56:11 (GMT) |
| commit | 804d674469dc08e5b32edb2e1f251d2b68711efd (patch) | |
| tree | d5ab90bb3ebdce3e0222d5d381b397114b96c6c0 | |
| parent | cbbbe6800e56c019ed38cb3022250285b72c6419 (diff) | |
| download | tk-804d674469dc08e5b32edb2e1f251d2b68711efd.zip tk-804d674469dc08e5b32edb2e1f251d2b68711efd.tar.gz tk-804d674469dc08e5b32edb2e1f251d2b68711efd.tar.bz2 | |
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.
| -rw-r--r-- | library/ttk/progress.tcl | 4 |
1 files 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 -- |