[Perl-unix-users] dialog tab navigation issue

[listmail]

below is a password entry dialog example.  I'd like to know if it is possible to only 
have to press tab once (after typing the username) in order to have focus on the 
password field ??

~~~~~~~~~~~~~~~~~~~~~~~~~~
#! /usr/bin/perl -w
use strict;
use Tk;

my ($username, $password);

my $top = MainWindow->new();

my $db = $top->DialogBox(-title => 'Login', -buttons => ['Ok', 'Cancel'],
                         -default_button => 'Ok');

my $login=$db->add('LabEntry', -textvariable => \$username, -width => 20,
                   -label => 'Username', 
                   -labelPack => [-side => 'left'],
                   -takefocus => 0)->pack;        

$db->add('LabEntry', -textvariable => \$password, -width => 20,
                     -label => 'Password', -show => '*',
                     -labelPack => [-side => 'left'],
                     -takefocus => 1)->pack;

$login->focus;
my $answer = $db->Show();

Mainloop();


_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs