diff options
Diffstat (limited to 'library')
| -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 } |