Ubuntu中文论坛

代码： 全选

2009-12-04 10:05:50 五 ~/应用/脚本 
● cat oss.pl 
#!/usr/bin/perl

use utf8;
use Gtk2 -init;
#use Encode;
my $icon='/home/exp/媒体/我的图片●/distributor-logo.png';
my $tip="OSD显示所选文字：hover显示，单击退出";
my $size=100000;
my $cmd='xsel -o';

sub tooltip{
   my ($widget, $button, $time, $menu) = @_;
   @_=`$cmd`;
   `gnome-osd-client -f "<message id='oss' osd_vposition='center' osd_halignment='center'><span size='$size' foreground='red'>@_</span></message>"`;
}

$status_icon = Gtk2::StatusIcon->new_from_file($icon);
$status_icon->set_tooltip($tip);
$status_icon->signal_connect('activate',sub{Gtk2->main_quit();});
$status_icon->signal_connect('query-tooltip',\&tooltip);
$status_icon->set_visible(1);
Gtk2->main();