The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tk::ProgressSplash - create a starting splash screen with a progress bar

SYNOPSIS

    BEGIN {
        require Tk::ProgressSplash;
        $splash = Tk::ProgressSplash->Show(-splashtype => 'fast',
                                           $image, $width, $height, $title,
                                           $overrideredirect);
    }
    ...
    use Tk;
    ...
    $splash->Update(0.1) if $splash;
    ...
    $splash->Update(1.0) if $splash;
    ...
    $splash->Destroy if $splash;
    MainLoop;

DESCRIPTION

Create a splash screen with progress bar.

METHODS

Show

The Show() method takes the same arguments as the Show() method of Tk::Splash. Additionally you can specify:

-splashtype

Set to "fast" if you want to use Tk::FastSplash instead of Tk::Splash as the underlying splash widget. "normal", "safe" or "slow" may be used for Tk::Splash. Default is "normal".

Update

Advance the progressbar and make it visible, if it was not yet visible. The argument is a floating number between 0 and 1.

Destroy

Destroy the splash widget.

BUGS

See Tk::Splash and Tk::FastSplash.

AUTHOR

Slaven Rezic (slaven@rezic.de)

SEE ALSO

Tk::Splash, Tk::FastSplash.