summaryrefslogtreecommitdiffstats
path: root/library/bgerror.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/bgerror.tcl')
-rw-r--r--library/bgerror.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index 0dc70cf..f46ab4c 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -223,7 +223,7 @@ proc ::tk::dialog::error::bgerror err {
# 7. Ensure that we are topmost.
raise $dlg
- if {$tcl_platform(platform) eq "windows"} {
+ if {[tk windowingsystem] eq "win32"} {
# Place it topmost if we aren't at the top of the stacking
# order to ensure that it's seen
if {[lindex [wm stackorder .] end] ne "$dlg"} {