Happens in Firefore 1.5.0.11 but not in IE 6.0.
Build the following tclet:
set b [button .b -text "Button"]
set t [text .t]
pack $b $t -side top
focus $t
Now type some text, and then click on the button. The insert cursor disapears from the text widget.