NAME
Tk::Wizard::Tester - A Test Wizard
use Tk::Wizard::Tester;
my $wizard = new Tk::Wizard::Tester(
-debug => 0,
-wait => 250,
);
$wizard->Show;
MainLoop;
DESCRIPTION
This module shows off -- I mean demonstrates -- most, if not all, of the basic features of the Tk::Wizard distribution.
It is used in the automatic tests during the `make test` phase, and it is used by the module authors for manual testing and debugging.
METHODS
new
Create a new Tester wizard. Takes the same arguments as Tk::Wizard->new(), plus: -wait to set a default wait time for all pages.
Show
Before we actually show the Tester Wizard, we add one final "finish" page. This allows the user to add more pages to this Tester Wizard, which will appear after the default pages, but there will always be a "content-poor" finish page.
AUTHOR
Martin Thurn, mthurn@cpan.org
, http://tinyurl.com/nn67z.