Hi all,
I have this little script that asks the user for UserName & password.
I can't figure out where do I get the input.
e.g. :
UserName = yargo
Password = q1w2e3
Please assist.
TIA,
#!/perl
use Tk;
my $vu_win = MainWindow->new();
$vu_win->configure(-title => 'Verify User');
$vu_win->geometry('+300+300'); # Setting it in the screen
my $vu_frm1 = $vu_win->Frame(-relief => 'groove', -borderwidth =>
3)->pack(-side => 'top', -fill => 'x');
my $vu_lb1 = $vu_frm1->Label(-text => 'Enter Username')->pack(-side =>
'left');
my $vu_en1 = $vu_frm1->Entry(-width => 8)->pack(-side => 'left', -pady =>
3);
my $vu_frm2 = $vu_win->Frame(-relief => 'groove', -borderwidth =>
3)->pack(-side => 'top', -fill => 'x');
my $vu_lb2 = $vu_frm2->Label(-text => 'Enter Password')->pack(-side =>
'left');
my $vu_en2 = $vu_frm2->Entry(-show => '*', -width => 12, -background =>
'white')->pack(-side => 'left', -pady => 3);
$vu_en2->bind('<Return>' => sub { $vu_win->destroy;});
MainLoop();
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
