Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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
Domain Nodelet?
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 drinking their drinks and smoking their pipes about the Monastery: (2)
As of 2021-10-18 15:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (74 votes). Check out past polls.

    Notices?