in reply to Re^4: Tk - Focus & Mouse - On & Off
in thread Tk - Focus & Mouse - On & Off

Here is closure free version  perl -MTk -e " tkinit->Button(-command=>sub{ $Tk::widget->parent->focus })->pack ->focus; MainLoop "

In Section Seekers of Perl Wisdom