It worked! Now there is an error. The option -variable is mandatory.
Also, one should specify -program_group in order to avoid a "undefined
$group" warning.
As a hacky workaround but tiny example of Tk::Wizard, one might write:
[code]
#!perl
package Tk::Wizard::Installer::Win32;
use warnings::register;
package main;
use strict;
use warnings;
use utf8;
use Tk::Wizard;
use Tk::Wizard::FileSystem;
use Tk::Wizard::Installer;
use Tk::Wizard::Installer::Win32;
my $wizard = Tk::Wizard::Installer::Win32->new(
-title => "Uninstall Perl Example Program",
);
$wizard->configure( -style => 'top', -preCloseWindowAction => sub
{ return 0; } );
#
-------------------------------------------------------------------------
# -- Select Startmenu Entry
my $path = '';
$wizard->addStartMenuPage(
-program_group => "My program's startmenu folder",
-variable => \$path,
);
#
-------------------------------------------------------------------------
# -- Actually run the wizard
$wizard->Show();
$wizard->MainLoop();
[/code]
Thank you!
Am Di 26. Apr 2011, 06:28:16, lee@leegoddard.net schrieb:
Show quoted text> I'm sorry I don't have a Win32 box around at the moment.
>
> Could you please try adding to the Tk::Wizard::Installer::Win32 the
> following, just below the package declaration?
>
> use warnings::register;
>
> Thanks.
> Lee
>
>
>
> On 24/04/2011 14:33, Alexander Becker via RT wrote:
> > Sun Apr 24 08:33:38 2011: Request 67728 was acted upon.
> > Transaction: Ticket created by ASB
> > Queue: Tk-Wizard
> > Subject: Unknown warnings category
'Tk::Wizard::Installer::Win32'
Show quoted text> > Broken in: (no value)
> > Severity: Normal
> > Owner: Nobody
> > Requestors: ASB@cpan.org
> > Status: new
> > Ticket<URL:
https://rt.cpan.org/Ticket/Display.html?id=67728>
> >
> >
> > Dear Lee,
> >
> > I'm sorry, it's me again :)
> >
> > There seems to be a problem with Tk::Wizard::Installer::Win32,
although
Show quoted text> > I'm not shure if it's really a problem with the module or if PEBMAC.
> >
> > The error is: "Unknown warnings category
'Tk::Wizard::Installer::Win32'
Show quoted text> > at C:/strawberry/perl/site/lib/Tk/Wizard.pm line 1594"
> >
> > I want to use addStartMenuPage(), and this is what I got for testing
> > purposes:
> >
> > [code]
> > #!perl
> >
> > use strict;
> > use warnings;
> > use utf8;
> > use FindBin qw/$Bin/;
> > use File::Spec;
> > use Tk::Wizard;
> > use Tk::Wizard::FileSystem;
> > use Tk::Wizard::Installer;
> > use Tk::Wizard::Installer::Win32;
> >
> > print $Tk::Wizard::Installer::Win32::VERSION;
> >
> > my $wizard = Tk::Wizard::Installer::Win32->new(
> > -title => "Uninstall Perl Example Program",
> > );
> > $wizard->configure( -style => 'top', -preCloseWindowAction => sub
> > { return 0; } );
> >
> > #
> >
-------------------------------------------------------------------------
Show quoted text> > # -- Select Startmenu Entry
> >
> > $wizard->addStartMenuPage();
> >
> > #
> >
-------------------------------------------------------------------------
Show quoted text> > # -- Conformation
> > $wizard->addSplashPage(
> > -title => 'Removal Comlplete',
> > -subtitle => 'Perl Example Program was successfully
> > removed (I guess).',
> > -text => "Click [Finish] to close this wizard."
> > );
> >
> >
> > #
> >
-------------------------------------------------------------------------
Show quoted text> > # -- Actually run the wizard
> > $wizard->Show();
> > $wizard->MainLoop();
> > [/code]
> >
> > Here is more information:
> > OS: Win 7, x64
> > Perl: strawberry perl v5.12.2 built for MSWin32-x64-multi-thread
> > $Tk::Wizard::Installer::Win32::VERSION = 2.021
> >
> > Any ideas?
> >
> > Best regards& happy easter,
> > Alex
> >
