diff options
author | jenglish <jenglish@noemail.net> | 2013-08-15 03:56:11 (GMT) |
---|---|---|
committer | jenglish <jenglish@noemail.net> | 2013-08-15 03:56:11 (GMT) |
commit | 2b9916e1add69904352ebd69845f5f3e2eb6cd53 (patch) | |
tree | d5ab90bb3ebdce3e0222d5d381b397114b96c6c0 | |
parent | 3044ac3ad8e86d214e2442dff954c61acd608e7e (diff) | |
download | tk-2b9916e1add69904352ebd69845f5f3e2eb6cd53.zip tk-2b9916e1add69904352ebd69845f5f3e2eb6cd53.tar.gz tk-2b9916e1add69904352ebd69845f5f3e2eb6cd53.tar.bz2 |
Bug [b744526512]: 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: 8ea3ccb4b748307339328723b2feaac01b54f909
-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 -- |