#2148 test suite focus test 5.1 failure

[Larry W. Virden]

I'm building the latest cvs head, building on sparc
solaris 2.9, using sun c compiler. I display back
through exceed 10.0.0.12 on a windows xp machine.

focus.test

==== focus-5.1 ChangeXFocus procedure, don't take focus
unless have it FAILED
==== Contents of test case:

focusSetup
focus -force .t
update
set result [focus]
send [dobg {tk appname}] {focus -force .; update}
lappend result [focus]
focus .t.b2
update
lappend result [focus]

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