PrePAN

Sign in to PrePAN

Tk::DBI::LoginDialog DBI login dialog class for Perl/Tk.

Good

Synopsis

SYNOPSIS
         use Tk::DBI::LoginDialog;

         my $top = new MainWindow;

         my $d = $top->LoginDialog(-instance => 'XE');

         my $dbh = $d->login;

         print $d->error . "\n"
               unless defined($dbh);

Description

DESCRIPTION "Tk::DBI::LoginDialog" is a dialog widget which interacts with the DBI interface specifically to attempt a connection to a database, and thus returning a database handle.

   This widget allows the user to enter username and password details into
   the dialog, and also to select driver, and other driver-specific
   details where necessary.

Comments

What about making it similar to a normal Tk::Dialog, adding a Show() method?

Please sign up to post a review.