| 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 | } |