#!/usr/local/bin/perl -w
use strict;
use vars qw($mw $sp);
use Tk;

sleep(10);

MainLoop;


BEGIN{
    require Tk::Splashscreen;
    use Tk;
    
    $mw = MainWindow->new(-title=>'text');
    
    $sp = $mw->Splashscreen();
    
    $sp->Label(-text=>'Starting up')->pack();
    
    $sp->Splash(10000);
}
[download]

When I run this, I see a window come up immediately, but it is blank (i.e. my label is not there) and when the appicaltion is done initializing another window flashes by very quickly (which appears to be may splash screen, but I can't tell as it only apears for less than 1 second). That behavior does not seem usefull in any way, did I do something wrong?

Using Tk::Spalsh, I can't even get things running. According top the docs:

$splash = Tk::Splash->Show($image, $width, $height, $title,
                                   $overrideredirect);
[download]

Should work... but there is no indication about what exacltly the "$image" argument should be. I've tried passing it a path to a gif, a jpg and a bmp, all of which result in an error. The error displays a string of random binary characters and tells me that they do not apear to be an image. What have I missed? Am a sopposed to be passing some form of image object? Or a filehandle perhaps?