#!/usr/bin/perl
#XMMS Controller	(C)2004 by Throttle

#This program is free software. You can use, copy, modificate, distribute it under
#the terms of GNU GPL version 2 or later. The software is provided with no warranty.


use strict;
use Tk;

my $window = MainWindow->new(-title=>"XMMS Controller");
$window->Button(-text=>"Prev", -command=> sub{click(1)})->pack(-side=>'left');
$window->Button(-text=>"Play", -command=> sub{click(2)})->pack(-side=>'left');
$window->Button(-text=>"Pause", -command=> sub{click(3)})->pack(-side=>'left');
$window->Button(-text=>"Next", -command=> sub{click(4)})->pack(-side=>'left');
$window->Button(-text=>"Exit", -command=>[$window=>'destroy'])->pack;

MainLoop;

sub click
{
	my $todo = shift;

	if($todo == 1) {system "xmms -r";}
	if($todo == 2) {system "xmms -p";}
	if($todo == 3) {system "xmms -u";}
	if($todo == 4) {system "xmms -f";}
}