diff options
| author | mdejong <mdejong@noemail.net> | 2002-06-09 09:07:14 (GMT) |
|---|---|---|
| committer | mdejong <mdejong@noemail.net> | 2002-06-09 09:07:14 (GMT) |
| commit | bbf053f9b4ed39ab659a49ae4e8e5bf201bb6513 (patch) | |
| tree | 77faa960cf113bf84931b1126c4ff0cf0f32d2ee /library/bgerror.tcl | |
| parent | 56ec32dec87c0f1772d74ec07b1e2b1f4ea5eb06 (diff) | |
| download | tk-bbf053f9b4ed39ab659a49ae4e8e5bf201bb6513.zip tk-bbf053f9b4ed39ab659a49ae4e8e5bf201bb6513.tar.gz tk-bbf053f9b4ed39ab659a49ae4e8e5bf201bb6513.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.
FossilOrigin-Name: 70bae675185cfdfe4a0012d34a8894a51dcda8fd
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 } |