$mw -> bind('all','', sub { $Tk::event->W ->focusPrev; Tk::break(); } ); $mw -> bind('all','', sub { $Tk::event->W ->focusNext; Tk::break(); } );