Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Tk Defining focus order for Return Key

by hiseldl (Priest)
on Sep 28, 2002 at 22:40 UTC ( #201500=snippet: print w/replies, xml ) Need Help??

Tk allows 'tab-key' ordering by the order in which you pack your widgets. One way to change this behaviour is to bind a key event to the focus method of the 'next' widget in line.

In this snippet, I bound the return key to the next 'Entry' widget in line. Uncomment the line noted in the code if you want to wrap around.

What time is it? It's Camel Time!

use Tk;
use strict;
use warnings;

my $win = MainWindow->new();
$win->Button(-text=>'Other Window',-command=>\&otherwindow)->pack;
sub otherwindow
    my $otherwin = $win->Toplevel;
    my $foo = $otherwin->Entry->pack;
    my $bar = $otherwin->Entry->pack;
    my $baz = $otherwin->Entry->pack;

    &defineOrder($foo, $bar, $baz);

sub defineOrder
    my $widget;
    for (my $i=0; defined( $_[$i+1] ); $i++)
        $_[$i]->bind('<Key-Return>', [\&focus, $_[$i+1]]);

    # Uncomment this line if you want to wrap around
    #$_[$#_]->bind('<Key-Return>',  [\&focus, $_[0]]);


sub focus
    my ($tk, $self) = @_;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://201500]
marioroy running LWP::Simple on Cygwin in parallel completes in 1 second. Pre-loading essential modules is necessary only on MSWin32 Re: Crash with ForkManager on Windows.
marioroy LWP::Simple works best with Perl v5.26 on Windows. Any Perl version is fine on Cygwin and Unix.

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2017-09-23 15:46 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (272 votes). Check out past polls.