diff options
| author | hobbs <hobbs> | 2002-06-22 10:13:26 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-06-22 10:13:26 (GMT) |
| commit | ada9b40cb1ed12dff8ae71d167aeeea17bcade14 (patch) | |
| tree | 960b07c03b8b74ffa66c1e547aa2338cdb07ea74 /tests/winWm.test | |
| parent | 3016d7bb9fdd6c9886c4e501d5e7a1ac0823e9aa (diff) | |
| download | tk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.zip tk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.tar.gz tk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.tar.bz2 | |
* doc/wm.n: TIP #95 Windows implementation and
* mac/tkMacWm.c (Tk_WmCmd): docs with mac and unix stubs.
* unix/tkUnixWm.c (Tk_WmCmd):
* win/tkWinWm.c (Tk_WmCmd):
* tests/unixWm.test:
* tests/winWm.test: more wm attr tests will be needed.
Diffstat (limited to 'tests/winWm.test')
| -rw-r--r-- | tests/winWm.test | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index e9c86c1..72f5919 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.4 2000/01/12 11:45:36 hobbs Exp $ +# RCS: @(#) $Id: winWm.test,v 1.5 2002/06/22 10:13:26 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -229,18 +229,25 @@ test winWm-5.2 {UpdateGeometryInfo: menu resizing} {pcOnly} { set result } {50 50 0} +test winWm-6.1 {wm attributes} {pcOnly} { + destroy .t + toplevel .t + wm attributes .t +} {-disabled 0 -toolwindow 0 -topmost 0} +test winWm-6.2 {wm attributes} {pcOnly} { + destroy .t + toplevel .t + wm attributes .t -disabled +} {0} +test winWm-6.3 {wm attributes} {pcOnly} { + # This isn't quite the correct error message yet, but it works. + destroy .t + toplevel .t + list [catch {wm attributes .t -foo} msg] $msg +} {1 {wrong # arguments: must be "wm attributes window ?-disabled ?bool?? ?-toolwindow ?bool?? ?-topmost ?bool??"}} + +destroy .t + # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - |