Import Tk 8.6.8
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user