diff options
Diffstat (limited to 'library/bgerror.tcl')
| -rw-r--r-- | library/bgerror.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index a9e7d30..0dc70cf 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -214,7 +214,9 @@ proc ::tk::dialog::error::bgerror err { bind $dlg <Destroy> [namespace code [list Destroy %W]] $dlg.function configure -command [namespace code Details] - # 6. Place the window (centered in the display) and deiconify it. + # 6. Withdraw the window, then update all the geometry information + # so we know how big it wants to be, then center the window in the + # display (Motif style) and de-iconify it. ::tk::PlaceWindow $dlg |