diff options
| author | mdejong <mdejong> | 2002-06-09 09:07:14 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2002-06-09 09:07:14 (GMT) |
| commit | 8f7a5e090555d59da1db17e4881ac68aee343859 (patch) | |
| tree | 77faa960cf113bf84931b1126c4ff0cf0f32d2ee /library/bgerror.tcl | |
| parent | 4d342bfd5c831a1925a8e091a5dc563a87fc0f2f (diff) | |
| download | tk-8f7a5e090555d59da1db17e4881ac68aee343859.zip tk-8f7a5e090555d59da1db17e4881ac68aee343859.tar.gz tk-8f7a5e090555d59da1db17e4881ac68aee343859.tar.bz2 | |
* library/bgerror.tcl (tk::dialog::error::bgerror):
Don't set the bgerror dialog as a transient of
itself since this operation is ill defined.
Diffstat (limited to 'library/bgerror.tcl')
| -rw-r--r-- | library/bgerror.tcl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index a379e75..d9770ae 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -9,8 +9,8 @@ # Copyright (c) 1998-2000 by Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: bgerror.tcl,v 1.20 2002/05/08 05:13:03 dgp Exp $ -# $Id: bgerror.tcl,v 1.20 2002/05/08 05:13:03 dgp Exp $ +# RCS: @(#) $Id: bgerror.tcl,v 1.21 2002/06/09 09:07:14 mdejong Exp $ +# $Id: bgerror.tcl,v 1.21 2002/06/09 09:07:14 mdejong Exp $ namespace eval ::tk { namespace eval dialog { @@ -139,9 +139,6 @@ proc ::tk::dialog::error::bgerror err { wm iconname .bgerrorDialog ErrorDialog wm protocol .bgerrorDialog WM_DELETE_WINDOW { } - # The following, though surprising, works. - wm transient .bgerrorDialog .bgerrorDialog - if {$tcl_platform(platform) eq "macintosh"} { ::tk::unsupported::MacWindowStyle style .bgerrorDialog dBoxProc } |