#!perl -w

# Copyright 2005..2009 Robert May, All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

use strict;
use warnings;

use Win32::GUI 1.02 ();
use Win32::GUI::SplashScreen ();

# Create and diaplay the splash screen
Win32::GUI::SplashScreen::Show(
	-file      => undef,  # explicitly set -file to undef to stop it looking fo default
                          # SPLASH.bmp
	-mintime   => 5,
	-info      => "SplashScreen Demo 2 v1.0",
	-copyright => "(c) 2005..2009 Robert May",
);

# Create the main window
my $mw = Win32::GUI::Window->new(
	-title  => "SplashScreen Demo 2",
	-size   => [700, 500],
) or die "Creating Main Window";

# Hide the splash - blocks until the splashscreen is removed
Win32::GUI::SplashScreen::Done();

# show the main window and enter the dialog phase
$mw->Show();
Win32::GUI::Dialog();
exit(0);