http://www.perlmonks.org?node_id=11121345


in reply to Navigation and Focus - Tk Notebook Widget tabs (UPDATED)

One

$book->focus( $book->raised ); $book->focusFollowsMouse;

or

$mw->focusFollowsMouse;

Two

$book->bind( '<Control-Tab>', \&RaiseNext ); $book->bind( '<Shift-Control-Tab>', \&RaisePrev ); sub RaiseNext { my( $nb ) = @_; $nb->raise( $nb->info("focusnext") ); } sub RaisePrev { my( $nb ) = @_; $nb->raise( $nb->info("focusprev") ); }

For my win32, Tk::DynaTabFrame doesn't change anything in your program, it actually breaks tab cycling