perl/mpmix/mpmix.pl

   1 #!/usr/bin/env perl
   2 #ArchLinux Daemon Manager Gui! by Harvie 2oo9
   3 use strict;
   4 use warnings;
   5 use utf8;
   6 require "MPlayer.pm";
   7 use Gtk2 qw(-init);
   8
   9 my $player = Audio::Play::MPlayer->new;
  10 $player->load( "/home/harvie/Downloads/Shared/Bonobo-Walk_In_The_Sky_(Feat.Bajka).mp3" );
  11 sleep 1;
  12 #print $player->title. "\n";
  13 #print $player->{track}->{title}, "\n";
  14 $player->speed(0.3);
  15 $player->poll( 1 ) until $player->state == 0;
  16
  17 my $builder = Gtk2::Builder->new();
  18 $builder->add_from_file('mpmix.ui');
  19
  20 my %widgets;
  21 foreach my $widget qw(window1)
  22 {
  23         $widgets{$widget}=$builder->get_object($widget);
  24 }
  25
  26 $builder->connect_signals(undef);
  27 $builder = undef;
  28
  29 $widgets{'window1'}->show();
  30
  31
  32 Gtk2->main();
  33 exit;
  34
  35 sub on_window1_destroy
  36 {
  37     Gtk2->main_quit();
  38 }