The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.