Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: Tab Order for Widgets in HList

by Anonymous Monk
on Oct 19, 2011 at 13:31 UTC ( #932401=note: print w/ replies, xml ) Need Help??


in reply to Re: Tab Order for Widgets in HList
in thread Tab Order for Widgets in HList

And the smart way

$mw -> bind('all','<Tab>', sub { $Tk::event->W ->focusPrev; Tk::break(); } ); $mw -> bind('all','<Shift-Tab>', sub { $Tk::event->W ->focusNext; Tk::break(); } );


Comment on Re^2: Tab Order for Widgets in HList
Download Code
Re^3: Tab Order for Widgets in HList
by choroba (Canon) on Oct 19, 2011 at 13:52 UTC
    Very nice! But, for me, Shift-Tab does not work, I have to specify Shift-ISO_Left_Tab :-(
      Checking the source for Tk::MainWindow reveals that it uses the virtual <<LeftTab>>, so this should work for all, and its even simpler
      $mw->bind('all','<Tab>','focusPrev'); $mw->bind('all','<<LeftTab>>','focusNext');

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2015-07-05 04:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls