Re: Navigation and Focus - Tk Notebook Widget tabs (UPDATED)


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: Navigation and Focus - Tk Notebook Widget tabs (UPDATED)

by Anonymous Monk

on Sep 04, 2020 at 03:00 UTC ( [id://11121345]=note: print w/replies, xml )

Need Help??

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

One

$book->focus( $book->raised );
$book->focusFollowsMouse;
[download]

$mw->focusFollowsMouse;
[download]

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") );
}
[download]

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