view release on metacpan or  search on metacpan

WizardMaker.pm  view on Meta::CPAN

  # class variables
  our $defs;
}


################################################################################
# Standard perl and Tk object magic.                                           #
# We must override Tk functions  ClassInit and Populate!                       #
################################################################################

use base qw/Tk::Derived Tk::Frame/;

Tk::Widget->Construct('WizardMaker');

# Tk standard function to initialize class
sub ClassInit{
  my ($class, $main_window) = @_;

  # init the instance variables.
  # You can use more than one WizardMaker object adonce
  $defs->{counter} = 0;