Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

by Anonymous Monk
on Sep 04, 2020 at 03:00 UTC ( #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;

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11121345]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2021-03-05 04:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favorite kind of desktop background is:











    Results (109 votes). Check out past polls.

    Notices?