# -*- perl -*-

use strict;

use Wizard::State ();
use Wizard::SaveAble ();

package Wizard::Examples;

@Wizard::Examples::ISA     = qw(Wizard::State);
$Wizard::Examples::VERSION = '0.01';



sub Action_Reset {
    my($self, $wiz) = @_;

    # Return the initial menu.
    (['Wizard::Elem::Title', 'value' => 'Wizard Examples Menu'],
     ['Wizard::Elem::Submit', 'value' => 'Apache Wizard Menu',
      'name' => 'Wizard::Examples::Apache::Action_Reset',
      'id' => 1],
     ['Wizard::Elem::BR'],
     ['Wizard::Elem::Submit', 'value' => 'ISDN Wizard Menu',
      'name' => 'Wizard::Examples::ISDN::Action_Reset',
      'id' => 2],
     ['Wizard::Elem::BR'],
     ['Wizard::Elem::Submit', 'value' => 'Exit Wizard',
      'id' => 99]);
}



1;