| # Written by Tommi Virtanen <tv@debian.org>. Consider it public domain. |
| my ($passphrase, $main) = @_; |
| print $passphrase->get(), "\n"; |
| my $main=MainWindow->new; |
| $main->Label(-text=>$prompt)->pack(-fill=>'x'); |
| my $passphrase=$main->Entry(-show=>'*')->pack(-fill=>'x'); |
| my $buttons=$main->Frame; |
| $buttons->pack(-side=>'right'); |
| my $ok=$buttons->Button(-text=>'Ok', |
| -command=>sub {do_it $passphrase, $main} |
| my $cancel=$buttons->Button(-text=>'Cancel', -command=>[$main=>'destroy']) |
| $main->bind('Tk::Button', '<Return>' => 'invoke'); |
| $main->bind('<Return>', [$ok => 'invoke']); |
| $main->bind('<Escape>', [$cancel => 'invoke']); |
| $main->bind('<Visibility>' => [$main => 'grabGlobal']); |
| : 'Please enter your authentication passphrase:'); |