[wxperl-users] Wx::SplashScreen in 0.08

[Matt F. <ma...@iw...>]

Hi. In my Wx::App package in the OnInit sub, I create a Wx::Bitmap, then load a Wx::SplashScreen with that bitmap.  Then I create the main frame. However, this isn't working how I anticipated. I was thinking that the script would halt when the splah screen appears, and wouldn't continue to run until the splash screen times out, or someone clicks on it. This is not the case.  The splash screen appears, but then the frame opens right after it. Is there a way to fix this?

Thanks,
Matt

my $bitmap = Wx::Bitmap->new("bitmaps/splash.bmp", wxBITMAP_TYPE_BMP);
my $splash = Wx::SplashScreen->new($bitmap, wxSPLASH_CENTRE_ON_SCREEN | wxSPLASH_TIMEOUT, 3000, undef, -1, wxDefaultPosition, wxDefaultSize, wxSTATIC_BORDER | wxSTAY_ON_TOP);
my $frame = Frame->new("wxbot v0.1", wxDefaultPosition, wxDefaultSize);
$self->SetTopWindow($frame);
$frame->Show(1);

_____________________________________________________________