summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-04-25 20:11:06 (GMT)
committerhobbs <hobbs>2003-04-25 20:11:06 (GMT)
commita46adb61bb407f5fc6a7ce81c4b7e2cfe2a2f96d (patch)
treec5a475019fce05c29153c651e59ad3108cb6ddc3
parente3eb5cec164d8293d8804240893f09ba9c44096f (diff)
downloadtk-a46adb61bb407f5fc6a7ce81c4b7e2cfe2a2f96d.zip
tk-a46adb61bb407f5fc6a7ce81c4b7e2cfe2a2f96d.tar.gz
tk-a46adb61bb407f5fc6a7ce81c4b7e2cfe2a2f96d.tar.bz2
* library/bgerror.tcl: make bgerror dialog topmost on Windows to
prevent it being covered by other windows.
-rw-r--r--library/bgerror.tcl9
1 files changed, 6 insertions, 3 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index 0c423df..e0d32c7 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.23.2.1 2003/04/25 20:11:06 hobbs Exp $
+# $Id: bgerror.tcl,v 1.23.2.1 2003/04/25 20:11:06 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
}