oss.pl 演讲时候可用于醒目提示文本

[eexpress]

代码： 全选

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();

[eexpress]

鼠标选择文字，移动到tray图标就可。

[t3swing]

有点意思,perl确实够简洁啊 ,不太懂
换了图片(xpm格式),安装了gnome-osd,但鼠标放到tray图标就持续报错
ServerError: <type 'exceptions.KeyError'>: u'osd_halignment'

ee还有什么地方要设置的不 ?

[eexpress]

t3swing, 没啊。很简单的。你这 ServerError，，似乎是osd-client 的提示？

[roylez]

又用回gnome了？难看死了，您还是用fvwm吧。

[delectate]

神就是神

[hubert_star]

ee每次出现，我总是注意他头像帽子上闪闪的绿光

是不是我太邪恶了？

不好意思

[roylez]

ee每次出现，我总是注意他头像帽子上闪闪的绿光

是不是我太邪恶了？

不好意思

我赞美你。

[wfnh]

gtk···不擅长···tk也是··