NAME

Tk::mySplashScreen - annother Perl/Tk implementation of a splash screen

SYNOPSIS

use Tk; require Tk::mySplashScreen;

my $Splash = Tk::mySplashScreen->new(

        -image  => "/path/to/image.gif",
        
        -text   => "this is a splash screen"

);

$Splash->configure(-text => "new message");

$Splash->configure(-image => $newTKimageObject);

$Splash->configure(-image => "path/to/new/file.gif");

$Splash->configure(-anchor => 'n|s|e|w');

$Splash->configure(-hide => 1); #hide it

$Splash->configure(-hide => 0); #unhide it (if already hidden)

$myContentFrame = $Splash->AltContent();

$Splash->destroy();

new (Constructor)

Notes

The new method creates a new toplevel window and puts an image and a message in it. Note that there is no parent widget.

Options

-text

this is the message text you wish to display in the splash screen

-image

this is alternately, the path to a file containing a supported image type, or a reference to a pre-existing Tk::Image object. In either case the image is displayed in the splash screen window.

hide

Notes

this will hide (undraw) the splash screen, but not destroy the object.

unhide

head2 Notes

this will unhide a hidden splash screen. Obviously, this dosen't do much unless the window has already been hidden.

AltContent

Notes

this allows you to add custom content on the splash screen between the image and the message display. This is handy if, for instance, you want to ask for a username and password before showing your main program or whatever. This works by returning a frame reference. You can pack whatever you want into the frame. When you're done, just destroy the frame reference.

Example

$frame = $Splash->AltContent();

$frame->label(-text => "enter your password")->pack();

$frame->entry( -width => 20, -show => '*', -variable => \$pass )->pack();

..etc

Author

Andrew N. Hicox <andrew@hicox.com>

cpanm Tk::mySplashScreen

perl -MCPAN -e shell
install Tk::mySplashScreen