通用tray.pl

[eexpress]

代码： 全选

● cat tray.pl 
#!/usr/bin/perl

my $Select=$ARGV[0];
use Config::IniFiles;
my $cfg = new Config::IniFiles( -file => "$ENV{HOME}/.tray.rc" );
die "No Select Profile.\n" if(! $cfg->val($Select,'act0'));
#----------------------------------
my $st=0;
use Gtk2 "-init"; 
use Encode;
#$SIG{CHLD} = 'IGNORE';
my $status_icon = Gtk2::StatusIcon->new;
$status_icon->set_tooltip(decode("utf8",$cfg->val($Select,'tip')));
$_=$cfg->val($Select,'pic0'); print "$_\n";
$status_icon->set_from_file($cfg->val($Select,'pic0'));
$status_icon->signal_connect('button_release_event',\&click);
$status_icon->signal_connect('scroll_event',\&scroll);
$status_icon->set_visible(1);
Gtk2 -> main;
#----------------------------------
sub click{
my ($check, $event) = @_;
if($event->button eq 1 || $event->button eq 3){
        system($cfg->val($Select,"act$st"));
#        if(fork()==0){`$_`;exit;}
        $st=$st eq 0?1:0;
        $status_icon->set_from_file($cfg->val($Select,"pic$st"));
}
if($event->button eq 2){exit;}
}
#----------------------------------
sub scroll{
my ($check, $event) = @_;
if($event->direction eq 'down'){system($cfg->val($Select,'down'));}
if($event->direction eq 'up'){system($cfg->val($Select,'up'));}
}
#----------------------------------

代码： 全选

● cat .tray.rc 
[Volume]
pic0=/home/exp/bin/clip0.png
pic1=/home/exp/bin/clip1.png
act0=amixer set Master toggle
act1=amixer set Master toggle
up=amixer set Master 10%+
down=amixer set Master 10%-
tip=调整音量。滚轮调大小，点击切换静音。

[Swap_Mouse]
pic0=/home/exp/right.png
pic1=/home/exp/left.png
act0=xmodmap -e "pointer = 3 2 1"
act1=xmodmap -e "pointer = 1 2 3"
tip=切换鼠标左右手
up=

● tray.pl Volume
● tray.pl Swap_Mouse

[tenzu]

又见神码

[leeaman]

占位

[ChenFengyuan]

use Config::IniFiles;
bad ee,用模块。。。。

[HuntXu]

use Config::IniFiles;
bad ee,用模块。。。。

这有何难？
折腾的，才ini...

[perl]#!/usr/bin/perl -w
use strict;
use Gtk2 "-init";
use Encode;

######### Configurations ###############
# functions
my %volume = (
"pic0" => "audio-volume-high",
"pic1" => "audio-volume-muted",
"act0" => "amixer set Master toggle",
"act1" => "amixer set Master toggle",
"up" => "amixer set Master 10%+",
"down" => "amixer set Master 10%-",
"tip" => "调整音量。滚轮调大小，点击切换静音。",
);

# functions list
my %functions = (
"volume" => \%volume,
);

###### End of Configurations ###########

###### Script starts here ##############

$_ = $ARGV[0];
die "No such function.\n" unless exists($functions{$_});
$_ = $functions{$_};

my %sel = %$_;
my $st = 0;

my $status_icon = Gtk2::StatusIcon->new;
$status_icon->set_tooltip(decode("utf8", $sel{"tip"}));
$status_icon->set_from_icon_name($sel{"pic0"});
$status_icon->signal_connect("button_release_event", \&click);
$status_icon->signal_connect("scroll_event", \&scroll);
$status_icon->set_visible(1);
Gtk2 -> main;
#--------------------------------------
sub click {
my ($check, $event) = @_;
if ($event->button eq 1 || $event->button eq 3) {
system($sel{"act$st"});
$st = $st eq 0?1:0;
$status_icon->set_from_icon_name($sel{"pic$st"});
}
if ($event->button eq 2) {
exit;
}
}

sub scroll {
my ($check, $event) = @_;
if ($event->direction eq "down") {
system($sel{"down"});
}
if ($event->direction eq "up") {
system($sel{"up"});
}
}
[/perl]

运行方法一样...

代码： 全选

$ ./tray.pl volume

别忘了...

代码： 全选

[hunt@psycho ~]$ O_< grep icon .gtkrc-2.0 
gtk-icon-theme-name="Nostromo"
[hunt@psycho ~]$ O_< find ~/.icons/Nostromo/ -name "audio-volume*"
/home/hunt/.icons/Nostromo/16x16/status/audio-volume-muted.png
/home/hunt/.icons/Nostromo/16x16/status/audio-volume-low.png
/home/hunt/.icons/Nostromo/16x16/status/audio-volume-medium.png
/home/hunt/.icons/Nostromo/16x16/status/audio-volume-high.png

[rediscover]

前面是神码，后面是高亮神码。

[photor]