With toplevel widgets, i believe you can set the options so the widget will allways be in focus. One of the options for top level widgets is -takefocus or -focusmodel.
To make sure check the Perl/TK documentation. If you are working on Win, you might also want to look into trying Win32::GUI.