#!/usr/bin/perl

use warnings;
use strict;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use Gtk2::Ex::MPlayerEmbed;

# Create Main Window
my $window = Gtk2::Window->new('toplevel');
$window->set_border_width(0);
$window->set_decorated(0);
$window->set_position('center-always');
$window->set_title('Player');
$window->signal_connect( destroy => sub { Gtk2->main_quit; } );
$window->set_default_size(1024, 768);


my $vbox = Gtk2::VBox->new(0, 0);
$vbox->set_border_width(0);

# Create a Fixed Container
my $layout = Gtk2::Layout->new();
$layout->set_size (1024, 768);
$vbox->add($layout);
$window->add($vbox);
$vbox->show_all;

# Create MPLAYER Widget
my $mpe = Gtk2::Ex::MPlayerEmbed->new();
$mpe->set('args', $mpe->get('args').' -vo xv');

$layout->put($mpe, 0, 0);

$mpe->play('path_to_video.mp4');
$mpe->show_all;

$window->show_all;

main Gtk2;