summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2003-10-15 20:04:02 (GMT)
committerjenglish <jenglish@flightlab.com>2003-10-15 20:04:02 (GMT)
commit4c4b8b6c503a4f946ae7b5c6f027f26f61c3c923 (patch)
tree1ca5c0c724c3e757b0136a7cd9d8db3ac431373c /tests
parent354cb2f6a16e65c941bfd27988f05cf585b354c9 (diff)
downloadtk-4c4b8b6c503a4f946ae7b5c6f027f26f61c3c923.zip
tk-4c4b8b6c503a4f946ae7b5c6f027f26f61c3c923.tar.gz
tk-4c4b8b6c503a4f946ae7b5c6f027f26f61c3c923.tar.bz2
Delete WM_TRANSIENT_FOR property instead of setting it to None
when making a window nontransient [Bug #632816 "cannot remove transient"]
Diffstat (limited to 'tests')
-rw-r--r--tests/unixWm.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test
index 58035bb..a361b3e 100644
--- a/tests/unixWm.test
+++ b/tests/unixWm.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixWm.test,v 1.34 2003/04/01 21:06:57 dgp Exp $
+# RCS: @(#) $Id: unixWm.test,v 1.35 2003/10/15 20:04:03 jenglish Exp $
package require tcltest 2.2
eval tcltest::configure $argv
@@ -1273,7 +1273,7 @@ test unixWm-37.3 {Tk_WmCmd procedure, "transient" option} {unix testwrapper} {
[testprop [testwrapper .t2] WM_TRANSIENT_FOR]
destroy .t2
set result
-} {{} {} .t 0 {} 0x0}
+} {{} {} .t 0 {} {}}
test unixWm-37.4 {TkWmDeadWindow, destroy on master should clear transient} {unix testwrapper} {
catch {destroy .t2}
toplevel .t2
@@ -1284,7 +1284,7 @@ test unixWm-37.4 {TkWmDeadWindow, destroy on master should clear transient} {uni
destroy .t3
update
list [wm transient .t2] [testprop [testwrapper .t2] WM_TRANSIENT_FOR]
-} {{} 0x0}
+} {{} {}}
test unixWm-37.5 {Tk_WmCmd procedure, "transient" option, create master wrapper} {unix testwrapper} {
catch {destroy .t2}
catch {destroy .t3}