diff options
| author | hobbs <hobbs> | 2006-12-01 19:48:00 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-12-01 19:48:00 (GMT) |
| commit | 24d0506cfd0c1ab9b1867e9276ca7b0b4ccadb95 (patch) | |
| tree | 74be66b7032e01a5c8061060f1ba91b477c0402c /tests/winWm.test | |
| parent | 45c8e3580340193e7ccf0964846d920defe41521 (diff) | |
| download | tk-24d0506cfd0c1ab9b1867e9276ca7b0b4ccadb95.zip tk-24d0506cfd0c1ab9b1867e9276ca7b0b4ccadb95.tar.gz tk-24d0506cfd0c1ab9b1867e9276ca7b0b4ccadb95.tar.bz2 | |
* doc/wm.n, tests/winWm.test:
* win/tkWinWm.c: add -transparentcolor attribute for Windows.
Diffstat (limited to 'tests/winWm.test')
| -rw-r--r-- | tests/winWm.test | 27 |
1 files changed, 24 insertions, 3 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index e3b0d84..0b5592a 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winWm.test,v 1.17 2006/10/17 10:21:50 patthoyts Exp $ +# RCS: @(#) $Id: winWm.test,v 1.18 2006/12/01 19:48:00 hobbs Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -235,7 +235,7 @@ test winWm-6.1 {wm attributes} win { destroy .t toplevel .t wm attributes .t -} {-alpha 1.0 -disabled 0 -fullscreen 0 -toolwindow 0 -topmost 0} +} {-alpha 1.0 -transparentcolor {} -disabled 0 -fullscreen 0 -toolwindow 0 -topmost 0} test winWm-6.2 {wm attributes} win { destroy .t toplevel .t @@ -246,7 +246,7 @@ test winWm-6.3 {wm attributes} win { destroy .t toplevel .t list [catch {wm attributes .t -foo} msg] $msg -} {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-disabled ?bool?? ?-fullscreen ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} +} {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-transparentcolor ?color?? ?-disabled ?bool?? ?-fullscreen ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} test winWm-6.4 {wm attributes -alpha} win { # Expect this to return all 1.0 {} on pre-2K/XP @@ -291,6 +291,27 @@ test winWm-6.6 {wm attributes -alpha} win { } } {} +test winWm-6.7 {wm attributes -transparentcolor} win { + # Expect this to return all "" on pre-2K/XP + destroy .t + toplevel .t + set res {} + lappend res [wm attributes .t -transparentcolor] + # we don't return on set yet + lappend res [wm attributes .t -trans black] + lappend res [wm attributes .t -trans] + lappend res [wm attributes .t -trans "#FFFFFF"] + lappend res [wm attributes .t -trans] + destroy .t + set res +} [list {} {} black {} "#FFFFFF"] + +test winWm-6.8 {wm attributes -transparentcolor} win { + destroy .t + toplevel .t + list [catch {wm attributes .t -tr foo} msg] $msg +} {1 {unknown color name "foo"}} + test winWm-7.1 {deiconify on an unmapped toplevel\ will raise the window and set the focus} win { destroy .t |