Commit | Line | Data |
---|---|---|
2e9749f0 H |
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 | } |