From 986591ee07c1fe94eb147e55a1d234cfdae0232e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 25 Apr 2003 20:02:43 +0000
Subject: 	* library/bgerror.tcl: make bgerror dialog topmost on Windows
 to 	prevent it being covered by other windows.

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