diff options
| author | mdejong <mdejong> | 2005-02-17 00:06:05 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2005-02-17 00:06:05 (GMT) |
| commit | 74082f5c2537ffc0ccfa43077761d484535defa9 (patch) | |
| tree | fb992afb785687444592374bdb6339a03baf748d /tests/winWm.test | |
| parent | aee29491b0abebba92b1106ddf35a5724ac0a9e9 (diff) | |
| download | tk-74082f5c2537ffc0ccfa43077761d484535defa9.zip tk-74082f5c2537ffc0ccfa43077761d484535defa9.tar.gz tk-74082f5c2537ffc0ccfa43077761d484535defa9.tar.bz2 | |
* doc/wm.n: Add documentation for -fullscreen attribute.
* tests/winWm.test: Add -fullscreen to wm attribute
usage message.
* tests/wm.test: Add -fullscreen to wm attribute
usage message. Add -fullscreen attribute test cases
for Windows.
* win/tkWinWm.c (WmInfo, UpdateWrapper, TkpWmSetFullScreen,
WmAttributesCmd, UpdateGeometryInfo):
Implement TIP 223 [wm attributes -fullscreen].
Diffstat (limited to 'tests/winWm.test')
| -rw-r--r-- | tests/winWm.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index f1449e4..95b71cb 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.15 2004/12/04 00:04:43 dkf Exp $ +# RCS: @(#) $Id: winWm.test,v 1.16 2005/02/17 00:06:08 mdejong Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -229,7 +229,7 @@ test winWm-6.1 {wm attributes} win { destroy .t toplevel .t wm attributes .t -} {-alpha 1.0 -disabled 0 -toolwindow 0 -topmost 0} +} {-alpha 1.0 -disabled 0 -fullscreen 0 -toolwindow 0 -topmost 0} test winWm-6.2 {wm attributes} win { destroy .t toplevel .t @@ -240,7 +240,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?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} +} {1 {wrong # args: should be "wm attributes window ?-alpha ?double?? ?-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 |