diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-03-06 23:09:12 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-03-06 23:09:12 (GMT) |
| commit | 7bbe7bbdc8405dd7b5a98b9399ed599fd12d3aaa (patch) | |
| tree | bbe130f0a845fa7fe7033b241089e66847a10591 /tests/focusTcl.test | |
| parent | f802dd59b9fdec91f7178bfb7bcaa2ab2818739c (diff) | |
| parent | 8701bf597e98498ab4d757caa5a2bb9dd46a0554 (diff) | |
| download | tk-7bbe7bbdc8405dd7b5a98b9399ed599fd12d3aaa.zip tk-7bbe7bbdc8405dd7b5a98b9399ed599fd12d3aaa.tar.gz tk-7bbe7bbdc8405dd7b5a98b9399ed599fd12d3aaa.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'tests/focusTcl.test')
| -rw-r--r-- | tests/focusTcl.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/focusTcl.test b/tests/focusTcl.test index ef848bb..0e457a6 100644 --- a/tests/focusTcl.test +++ b/tests/focusTcl.test @@ -402,7 +402,7 @@ test focusTcl-5.4 {tkFocusOK procedure, -takefocus ""} -body { test focusTcl-5.5 {tkFocusOK procedure, -takefocus "", not mapped} -body { setup1 . .b.x configure -takefocus "" - pack unpack .b.x + pack forget .b.x update tk_focusNext .b } -cleanup { @@ -413,7 +413,7 @@ test focusTcl-5.6 {tkFocusOK procedure, -takefocus "", not mapped} -body { foreach w {.b.x .b.y .b.z} { $w configure -takefocus "" } - pack unpack .b + pack forget .b update tk_focusNext .b } -cleanup { @@ -422,7 +422,7 @@ test focusTcl-5.6 {tkFocusOK procedure, -takefocus "", not mapped} -body { test focusTcl-5.7 {tkFocusOK procedure, -takefocus "", not mapped} -body { setup1 . .b.y configure -takefocus 1 - pack unpack .b.y + pack forget .b.y update tk_focusNext .b.x } -cleanup { @@ -432,7 +432,7 @@ test focusTcl-5.8 {tkFocusOK procedure, -takefocus "", not mapped} -body { proc always args {return 1} setup1 . .b.y configure -takefocus always - pack unpack .b.y + pack forget .b.y update tk_focusNext .b.x } -cleanup { |