Don Porter - 2006-12-05

Logged In: YES
user_id=80530
Originator: YES

Other possibly related failures:

==== focus-1.3 Tk_FocusCmd procedure FAILED
==== Contents of test case:

focusClear
focus .t.b3
focus

---- Result was:
.t.b3
---- Result should have been (exact matching):

==== focus-1.3 FAILED

==== focus-1.12 Tk_FocusCmd procedure, -displayof option FAILED
==== Contents of test case:

focusClear
focus .t
focus -displayof .t.b3

---- Result was:
.t
---- Result should have been (exact matching):

==== focus-1.12 FAILED

==== focus-1.19 Tk_FocusCmd procedure, -force option FAILED
==== Contents of test case:

focusClear
focus .t.b1
set x [list [focus]]
focus -force .t.b1
lappend x [focus]

---- Result was:
.t.b1 .t.b1
---- Result should have been (exact matching):
{} .t.b1
==== focus-1.19 FAILED

==== focus-2.13 TkFocusFilterEvent procedure, Enter events FAILED
==== Contents of test case:

focus .t.b1
focusClear
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
set focusInfo {}
update
set focusInfo

---- Result was:

---- Result should have been (exact matching):
in .t NotifyVirtual
in .t.b1 NotifyAncestor

==== focus-2.13 FAILED

==== focus-2.15 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:

set result {}
focus .t.b1
foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
NotifyNonlinearVirtual NotifyVirtual} {
focusClear
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
event gen [testwrapper .t] <Leave> -detail $detail
update
lappend result [focus]
}
set result

---- Result was:
.t.b1 .t.b1 .t.b1 .t.b1 .t.b1
---- Result should have been (exact matching):
{} .t.b1 {} {} {}
==== focus-2.15 FAILED

==== focus-2.16 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:

set result {}
focus .t.b1
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
set focusInfo {}
event gen [testwrapper .t] <Leave> -detail NotifyAncestor
update
set focusInfo

---- Result was:

---- Result should have been (exact matching):
out .t.b1 NotifyAncestor
out .t NotifyVirtual

==== focus-2.16 FAILED

==== focus-2.17 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:

set result {}
focus .t.b1
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
set focusInfo {}
event gen .t.b1 <Leave> -detail NotifyAncestor
event gen [testwrapper .] <Leave> -detail NotifyAncestor
update
list $focusInfo [focus]

---- Result was:
{} .t.b1
---- Result should have been (exact matching):
{out .t.b1 NotifyAncestor
out .t NotifyVirtual
} {}
==== focus-2.17 FAILED

==== focus-4.1 TkFocusDeadWindow procedure FAILED
==== Contents of test case:

focusSetup
update
focus -force .b
update
destroy .t
focus

---- Result was:

---- Result should have been (exact matching):
.b
==== focus-4.1 FAILED

==== focus-4.2 TkFocusDeadWindow procedure FAILED
==== Contents of test case:

focusSetup
update
focus -force .t.b2
focus .b
update
destroy .t.b2
update
focus

---- Result was:
.t
---- Result should have been (exact matching):
.b
==== focus-4.2 FAILED