Subject: | No post/preNextButtonAction since version 1.945 |
Date: | Fri, 10 Nov 2006 10:01:41 +0800 |
To: | bug-Tk-Wizard-Bases [...] rt.cpan.org |
From: | "Clotho Tsang" <clothohk [...] gmail.com> |
post/preNextButtonAction are not work since version 1.945
Here is a demo program showing the bug.
Expect behaviour:
Show wizard, print "per post per" after clicking 2 "Next" buttons
Behaviour at version 1.942 and 1.943:
Same as expect behaviour.
Behaviour at 1.945 and 1.9451:
Show wizard, but no word is printed after clicking 2 "Next" buttons
Program here:
==============================================
#!/usr/bin/perl
use Tk::Wizard;
require Tk::LabFrame;
my $wizard = new Tk::Wizard(
-title => "Test",
-style => 'top',
);
$wizard->configure(
-postNextButtonAction => sub { print "post\n"; },
-preNextButtonAction => sub { print "per\n"; },
);
$wizard->addPage( sub{
$wizard->blank_frame(
-title => "Welcome ",
-subtitle => "Hi",
-text =>"Hello world",
);}
);
$wizard->addPage( sub{
$wizard->blank_frame(
-title => "Finish ",
-subtitle => "bye",
-text =>"the end",
);}
);
$wizard->Show;
Tk::Wizard::MainLoop();