diff options
| -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 } |