focus frame?

package require Tk
pack [frame .f]
pack [label .f.l -text test]
pack [entry .f.e]
bind <FocusIn> .f {
	puts test
	focus .f.e
}
pack [button .btn -text {Focus entry, please!} -command {focus .f}]