Tk - Password entry before the main window ? 1

[MoshiachNow]

HI,

How do i get my Password entry to appear to the user before the main window appears ?

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[Kirsle]

One approach: create and withdraw the MainWindow, so it doesn't appear yet, and have it create a Toplevel for the password.

use Tk;

my $mw = MainWindow->new;
$mw->withdraw;

my $loginwin = $mw->Toplevel (
   -title => 'Please Sign In',
);
my $password = '';
my $failures = 0; # count failed attempts
$loginWin->Label (
   -text => 'Enter your password to continue:',
);
my $passEntry = $loginwin->Entry (
   -textvariable => \$password,
);
my $submitBttn = $loginwin->Button (
   -text => 'Log In',
   -command => sub {
      if ($password eq 'secret') {
         # show the MainWindow
         $mw->deiconify;
      }
      else {
         # wrong password
         $failures++;
         $password = '';

         if ($failures > 3) {
            exit(0);
         }
      }
   },
)->pack;

MainLoop;