diff options
| author | hobbs <hobbs@noemail.net> | 2003-04-25 20:02:43 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2003-04-25 20:02:43 (GMT) |
| commit | 007f59e956aee5d38d14f99b91f855eb4bb26d78 (patch) | |
| tree | 81941ec9a8e6e6d905ca00fee1b08991fd49d834 /library | |
| parent | 64060c8365753e4810a8b51f2753658b455ca900 (diff) | |
| download | tk-007f59e956aee5d38d14f99b91f855eb4bb26d78.zip tk-007f59e956aee5d38d14f99b91f855eb4bb26d78.tar.gz tk-007f59e956aee5d38d14f99b91f855eb4bb26d78.tar.bz2 | |
* library/bgerror.tcl: make bgerror dialog topmost on Windows to
prevent it being covered by other windows.
FossilOrigin-Name: 7184ebfc4aa9807cee02e95ee498b571e3a287f3
Diffstat (limited to 'library')
| -rw-r--r-- | library/bgerror.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index 0c423df..7884180 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.23 2002/08/31 06:12:28 das Exp $ -# $Id: bgerror.tcl,v 1.23 2002/08/31 06:12:28 das Exp $ +# RCS: @(#) $Id: bgerror.tcl,v 1.24 2003/04/25 20:02:43 hobbs Exp $ +# $Id: bgerror.tcl,v 1.24 2003/04/25 20:02:43 hobbs Exp $ namespace eval ::tk { namespace eval dialog { @@ -140,7 +140,10 @@ proc ::tk::dialog::error::bgerror err { wm iconname .bgerrorDialog ErrorDialog wm protocol .bgerrorDialog WM_DELETE_WINDOW { } - if {($tcl_platform(platform) eq "macintosh") + if {$tcl_platform(platform) eq "windows"} { + wm attributes .bgerrorDialog -topmost 1 + } + if {($tcl_platform(platform) eq "macintosh") || ([tk windowingsystem] eq "aqua")} { ::tk::unsupported::MacWindowStyle style .bgerrorDialog dBoxProc } |