The following tests fail (and given the serious 'lost focus' bug in
TkAqua, it is plausible that something here is important):
focus.test
==== focus-1.1 Tk_FocusCmd procedure FAILED
==== Contents of test case:
focusClear
focus
---- Result was:
.t
---- Result should have been (exact matching):
==== focus-1.1 FAILED
==== 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
