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 | http://chady.net/
Are you a Linux user in Lebanon? join the Lebanese Linux User Group.
|
---|
In Section
Code Catacombs