From 7b64060dd94a995160cc8ccbd5bee7556fd996a9 Mon Sep 17 00:00:00 2001
From: mdejong <mdejong>
Date: Sat, 19 Jan 2002 00:36:02 +0000
Subject: 	* tests/wm.test: Rewrite stackorder tests that 	deal with
 toplevels that have the overrideredirect 	flag set. [Tk bug 492259]

---
 ChangeLog     |  6 ++++++
 tests/wm.test | 33 ++++++++++++++++++++++-----------
 2 files changed, 28 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5b848ff..2a845e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-18  Mo DeJong  <mdejong@users.sourceforge.net>
+
+	* tests/wm.test: Rewrite stackorder tests that
+	deal with toplevels that have the overrideredirect
+	flag set. [Tk bug 492259]
+
 2002-01-18  Don Porter  <dgp@users.sourceforge.net>
 
 	* win/tkWinDialog.c: Overlooked Tcl_GetIndexFromObj callers.
diff --git a/tests/wm.test b/tests/wm.test
index 2c5b121..0dfd5df 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: wm.test,v 1.1 2001/12/04 03:07:43 mdejong Exp $
+# RCS: @(#) $Id: wm.test,v 1.2 2002/01/19 00:36:02 mdejong Exp $
 
 # This file tests window manager interactions that work across
 # platforms. Window manager tests that only work on a specific
@@ -262,16 +262,7 @@ test wm-stackorder-4.4 {wm stackorder isabove|isbelow} {
 
 deleteWindows
 
-test wm-stackorder-5.1 {overrideredirect does not change stackorder} {
-    catch {destroy .t}
-    toplevel .t
-    wm overrideredirect .t 1
-    update
-    raise .
-    wm stackorder . isabove .t
-} {1}
-
-test wm-stackorder-5.2 {a menu is not a toplevel} {
+test wm-stackorder-5.1 {a menu is not a toplevel} {
     catch {destroy .t}
     toplevel .t
     menu .t.m -type menubar
@@ -282,6 +273,26 @@ test wm-stackorder-5.2 {a menu is not a toplevel} {
     wm stackorder .
 } {.t .}
 
+test wm-stackorder-5.2 {A normal toplevel can't be
+        raised above an overrideredirect toplevel } {
+    catch {destroy .t}
+    toplevel .t
+    wm overrideredirect .t 1
+    raise .
+    update
+    wm stackorder . isabove .t
+} 0
+
+test wm-stackorder-5.3 {An overrideredirect window
+        can be explicitly lowered } {
+    catch {destroy .t}
+    toplevel .t
+    wm overrideredirect .t 1
+    lower .t
+    update
+    wm stackorder .t isbelow .
+} 1
+
 
 deleteWindows
 
-- 
cgit v0.12