File Coverage

blib/lib/Wx/DemoModules/wxSplashScreen.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

#############################################################################
## Name:        lib/Wx/DemoModules/wxSplashScreen.pm
## Purpose:     wxPerl demo helper
## Author:      Mattia Barbon
## Modified by:
## Created:     28/08/2002
## RCS-ID:      $Id: wxSplashScreen.pm 2189 2007-08-21 18:15:31Z mbarbon $
## Copyright:   (c) 2002, 2006 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

package Wx::DemoModules::wxSplashScreen;

use strict;
use base qw(Wx::Panel);

use Wx qw(:splashscreen wxBITMAP_TYPE_JPEG);
use Wx::Event qw(EVT_BUTTON);

use File::chdir;

sub new {
    my( $class, $parent ) = @_;
    my $self = $class->SUPER::new( $parent );

    my $splash = Wx::Button->new( $self, -1, 'Splash Screen', [ 10, 10 ] );
    my $splashfast = Wx::Button->new( $self, -1, 'Splash Fast', [ 150, 10 ] );

    EVT_BUTTON( $self, $splash, \&on_splash );
    EVT_BUTTON( $self, $splashfast, \&on_splash_fast );

    return $self;
}

sub on_splash {
    my( $self, $event ) = @_;
    my $logo_file = Wx::Demo->get_data_file( 'splash/logo.jpg' );

    my $bitmap = Wx::Bitmap->new( $logo_file, wxBITMAP_TYPE_JPEG );

    Wx::SplashScreen->new( $bitmap,
                           wxSPLASH_CENTRE_ON_SCREEN|wxSPLASH_TIMEOUT,
                           5000, undef, -1 );
}

sub on_splash_fast {
    my( $self, $event ) = @_;
    my $splash_pl = Wx::Demo->get_data_file( 'splash/splash.pl' );

    local $CWD = File::Basename::dirname( $splash_pl );
    Wx::ExecuteCommand( "$^X splash.pl", 0 );
}

sub add_to_tags { qw(managed) }
sub title { 'wxSplashScreen' }

1;