wxPAR and command window

[Erik Colson]

Hi,

I wrote a wxPerl app which I package into an .exe with wxPAR.
I have 2 computers with both Windows XP installed.
Depending of the system I use to create the package, the program will or
will not start with a CMD window opened.
Both systems have the same version of Strawberry Perl installed.

What can be wrong on the system which does open a CMD window ?

This is the command I use to package:

wxpar --gui --icon BAL.ico -x -c -vvv -l ./lib -z 6 -o BAL.exe ppmain.pl

This is my main.pl script:

========================================
# Trying not to have a CMD window :(
BEGIN { Win32::SetChildShowWindow(0) if defined &Win32::SetChildShowWindow };
use Win32::API;
Win32::API->new( 'kernel32', 'FreeConsole',[], 'I' )->Call();

my $sc;
BEGIN {
    require Wx::Perl::SplashFast;
    $sc = Wx::Perl::SplashFast->new('BAL.jpg');
}

use strict;
use warnings;

use Wx::Perl::Packager;

use MooseX::NonMoose::Meta::Role::Class;
use MooseX::NonMoose::Meta::Role::Constructor;
use Modern::Perl;
use Wx::Grid;
use DateTime;use DateTime::Format::Natural::Calc;
use DateTime::Format::Natural::Compat;
use DateTime::Format::Natural::Utils;
use DateTime::Format::Natural::Wrappers;
use DateTime::Format::Natural::Duration;
use DateTime::Format::Natural::Extract;
use DateTime::Format::Natural::Helpers;
use DateTime::Format::Natural::Rewrite;
use DateTime::Format::Natural::Lang::EN;
use Text::CSV::Simple;
use Scalar::Util::Numeric;
use String::Util;

use Wx;
use lib "lib" ;
use lib "ECOCODE-Wx/lib" ;
use WIV;
use Cwd;

my $app = WIV->new( dataDir => cwd.'\Data' ) ;

$sc->Destroy();

$app->MainLoop;
========================================