#!/usr/bin/perl -w
#############################################################################
## Name: lib/Wx/DemoModules/files/splash/splash.pl
## Purpose: Show how to use splash screens
## Author: Mattia Barbon
## Modified by:
## Created: 05/06/2002
## RCS-ID: $Id: splash.pl 2189 2007-08-21 18:15:31Z mbarbon $
## Copyright: (c) 2002-2004, 2006 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
use Wx::Perl::SplashFast ( 'logo.jpg', 10000 );
use Wx;
my $app = Wx::SimpleApp->new;
sleep 5; # emulate the delay for a loooong initialization
my $frame = Wx::Frame->new( undef, -1, "Close me!" );
$frame->SetIcon( Wx::GetWxPerlIcon() );
$frame->Show;
$app->MainLoop;
exit 0;