in reply to XMMS Controller

a small nitpick; I would write your click() as:

sub click { my $todo = shift; system "xmms -$todo"; }

and change the buttons' callbacks to

$window->Button(-text=>"Prev", -command=> sub{click('r')})->pack(-side +=>'left'); $window->Button(-text=>"Play", -command=> sub{click('p')})->pack(-side +=>'left'); $window->Button(-text=>"Pause", -command=> sub{click('u')})->pack(-sid +e=>'left'); $window->Button(-text=>"Next", -command=> sub{click('f')})->pack(-side +=>'left');

You might also want to check wmxmms which sits in some kind of dock and can control xmms for you.

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.
Chady |
Are you a Linux user in Lebanon? join the Lebanese Linux User Group.