2 #ArchLinux Daemon Manager Gui! by Harvie 2oo9
9 my $player = Audio
::Play
::MPlayer
->new;
10 $player->load( "/home/harvie/Downloads/Shared/Bonobo-Walk_In_The_Sky_(Feat.Bajka).mp3" );
12 #print $player->title. "\n";
13 #print $player->{track}->{title}, "\n";
15 $player->poll( 1 ) until $player->state == 0;
17 my $builder = Gtk2
::Builder
->new();
18 $builder->add_from_file('mpmix.ui');
21 foreach my $widget qw(window1)
23 $widgets{$widget}=$builder->get_object($widget);
26 $builder->connect_signals(undef);
29 $widgets{'window1'}->show();
35 sub on_window1_destroy
This page took 0.355413 seconds and 4 git commands to generate.