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
|
---|
In Section
Seekers of Perl Wisdom