[Tk, offtopic] нет фокуса

Как сделать, чтобы при запуске под оффтопиком Tcl/Tk приложения его окно получало фокус? Код:

package require Tk

label .t -text "text"
pack .t