From fae07710c4ab361fd01a80c0fecf06a269e0193f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Fri, 25 Apr 2003 20:11:05 +0000
Subject: 	* library/bgerror.tcl: make bgerror dialog topmost on Windows
 to 	prevent it being covered by other windows.

FossilOrigin-Name: 24f878ebcfd4c85fea392585068f23ce45f47c15
---
 library/bgerror.tcl | 9 ++++++---
 1 file 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
     }
-- 
cgit v0.12