Hi, Yes, PDK will work just fine without Wx::Perl::Packager - so long as you don't use any extension dlls. So, No Wx::Html. no Wx::Socket, no Wx::DateTime etc etc.
You will notice that the executable you have built using PDK 7.1 is huge. This is because all the wxWidgets dlls are included twice. PDK 7.1 introduces heuristics that automatically include the wxWidgets dlls - so wxpdk as it works at present is pointless. I haven't had time to figure out a way of getting Wx::Perl::Packager to work with PDK 7.1 yet. It is still necessary if you use Wx::Html etc. Regards Mark Octavian Rasnita wrote: > Hi Mark, > > Finally I've solved it by uninstalling PDK 7.0.0 and installing PDK 7.1. > > I've read somewhere on Active State's site that 7.1 fixed a bug > regarding -dyndll use that used to cause some problems in Win32::GUI > programs. > > It workes even though I didn't put > use Wx::Perl::Packager; > in the script, but I've just used wxpdk command. > > Thank you. > > Octavian > > ----- Original Message ----- From: "Mark Dootson" <[EMAIL PROTECTED]> > To: "Octavian Rasnita" <[EMAIL PROTECTED]> > Cc: <[email protected]> > Sent: Sunday, February 03, 2008 1:56 PM > Subject: Re: wxpdk > > >> Hi, >> >> You need to put >> >> use Wx::Perl::Packager; >> >> at the top of your script. >> >> For future reference, when you are first building using PerlApp, it is >> useful to set the GUI parameter to zero. >> Then any messages relating to failure on startup will appear on STDOUT. >> Once you have a working app, you can switch the GUI param back to 1 >> and rebuild. >> >> Regards >> >> Mark >> >> >> >> Octavian Rasnita wrote: >>> >>> Here is the test.pl file I've used: >>> >>> use Wx; >>> >>> package MyApp; >>> >>> use base 'Wx::App'; >>> >>> sub OnInit { >>> my $self = shift; >>> my $frame = MyFrame->new(); >>> $self->SetTopWindow($frame); >>> $frame->Show(1); >>> 1; >>> } >>> 1; >>> >>> package MyFrame; >>> >>> use base 'Wx::Frame'; >>> >>> sub new { >>> my $class = shift; >>> my $self = $class->SUPER::new(undef, -1, "Test app", [-1, -1], [-1, >>> -1]); >>> return $self; >>> } >>> 1; >>> >>> package main; >>> >>> my $app = MyApp->new(); >>> $app->MainLoop(); >>> >> >> >> >
