diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-10-21 13:03:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-10-21 13:03:42 (GMT) |
| commit | ef56eb393679cb51381bdd31558dabc011328e76 (patch) | |
| tree | 6a11e245995e4c7e30a418e369108f841e394aac /library | |
| parent | 4b84553a843a8019f456d5d8e7f5e1130576df68 (diff) | |
| parent | e5ec9901434a09547d80a2fa1f351dedcf9e7f1b (diff) | |
| download | tk-ef56eb393679cb51381bdd31558dabc011328e76.zip tk-ef56eb393679cb51381bdd31558dabc011328e76.tar.gz tk-ef56eb393679cb51381bdd31558dabc011328e76.tar.bz2 | |
merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/bgerror.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index fa095f3..8421924 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -115,6 +115,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} { set windowingsystem [tk windowingsystem] if {$windowingsystem eq "aqua"} { if $flag { + set errorInfo $info after 500 [list bgerror "$err" 0] return } |