diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-08-26 11:00:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-08-26 11:00:13 (GMT) |
| commit | 1a4c3eb3aa7bdd36b3ca05caae84c70e96a90c34 (patch) | |
| tree | ce1b9b052466298a15cc19568a0afdff5cfd3ffc /library | |
| parent | ebe92dbbbaff6e8cc8d5bdbd9cbfc70d9a615fba (diff) | |
| download | tk-1a4c3eb3aa7bdd36b3ca05caae84c70e96a90c34.zip tk-1a4c3eb3aa7bdd36b3ca05caae84c70e96a90c34.tar.gz tk-1a4c3eb3aa7bdd36b3ca05caae84c70e96a90c34.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
FossilOrigin-Name: 35fd9c96ce3a3b754ad8aebf6ee19f544bdac920
Diffstat (limited to 'library')
| -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 -- |