summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormdejong <mdejong>2002-01-19 00:36:02 (GMT)
committermdejong <mdejong>2002-01-19 00:36:02 (GMT)
commit7b64060dd94a995160cc8ccbd5bee7556fd996a9 (patch)
tree315f02c2d03d7e2c8d89cda8677a109cf43ba4f6
parenta792a222eda85e370074517901d060e063e58a4d (diff)
downloadtk-7b64060dd94a995160cc8ccbd5bee7556fd996a9.zip
tk-7b64060dd94a995160cc8ccbd5bee7556fd996a9.tar.gz
tk-7b64060dd94a995160cc8ccbd5bee7556fd996a9.tar.bz2
* tests/wm.test: Rewrite stackorder tests that
deal with toplevels that have the overrideredirect flag set. [Tk bug 492259]
-rw-r--r--ChangeLog6
-rw-r--r--tests/wm.test33
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