diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-02-18 21:19:56 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-02-18 21:19:56 (GMT) |
| commit | cb24472949baeb33f906edec97ee0eca9a5f0c23 (patch) | |
| tree | da5bfae88243f2518d3f7d479d6629720466ffd1 /library | |
| parent | ab72d613cbde7ae3e7c26c9bfbfe58931c366047 (diff) | |
| download | tk-cb24472949baeb33f906edec97ee0eca9a5f0c23.zip tk-cb24472949baeb33f906edec97ee0eca9a5f0c23.tar.gz tk-cb24472949baeb33f906edec97ee0eca9a5f0c23.tar.bz2 | |
Fix [ce6b428620] (in Tcl repository, see [https://core.tcl-lang.org/tcl/tktview/ce6b428620dd89bc46786654e3aa1d62d74d3fc8]): <<Increment>> event is endlessly triggered once messagebox closes
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/utils.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/utils.tcl b/library/ttk/utils.tcl index 2571914..3d90880 100644 --- a/library/ttk/utils.tcl +++ b/library/ttk/utils.tcl @@ -236,8 +236,8 @@ proc ttk::Repeatedly {args} { after cancel $Repeat(timer) set script [uplevel 1 [list namespace code $args]] set Repeat(script) $script - uplevel #0 $script set Repeat(timer) [after $Repeat(delay) ttk::Repeat] + uplevel #0 $script } ## Repeat -- @@ -245,8 +245,8 @@ proc ttk::Repeatedly {args} { # proc ttk::Repeat {} { variable Repeat - uplevel #0 $Repeat(script) set Repeat(timer) [after $Repeat(interval) ttk::Repeat] + uplevel #0 $Repeat(script) } ## ttk::CancelRepeat -- |