#!/usr/bin/perl
use strict;
use lib qw(lib);
use Locale::TextDomain qw (video.dvdrip);
use Gtk2;
use Gtk2::Helper;
main: {
#-- find splash file
my $splash_lang_file = __"splash.en.png";
my $file;
foreach my $INC (@INC) {
$file = "$INC/Video/DVDRip/$splash_lang_file";
last if -e $file;
$file = "";
}
#-- exit silently if not found
exit if !$file;
#-- build Gtk splash window
Gtk2->init;
my $win = Gtk2::Window->new("toplevel");
my $image = Gtk2::Image->new_from_file($file);
my $event_box = Gtk2::EventBox->new;
$win->set_keep_above(1);
$win->set_decorated(0);
$win->set_position("center");
$event_box->add($image);
$event_box->signal_connect(
button_release_event => sub { Gtk2->main_quit }
);
$win->add($event_box);
$win->show_all;
#-- exit on input or hup on STDIN
Gtk2::Helper->add_watch( 0, "in", sub {
Gtk2->main_quit
});
#-- show splash window
Gtk2->main;
}