sub splash { my $windowHeight = 170; my $windowWidth = 170; my $screenHeight = $config{'mw'}->screenheight; my $screenWidth = $config{'mw'}->screenwidth; my $geometrie = $windowWidth."x".$windowHeight; $geometrie .= "+" . int($screenWidth/2 - $windowWidth/2); $geometrie .= "+" . int($screenHeight/2 - $windowHeight/2); my $splash = make_toplevel('-', $geometrie); $splash->overrideredirect(1); $splash->configure(-background => 'red'); $splash->Label(-image => $config{'mw'}->Photo(-file => $images{'SPLASH'}))->pack;#place(-in => $splash); }