Gtk2::Sexy::Tooltip用于个人提示脚本

☎ perl test-tooltip.pl “正在下载 <span size=\”large\” color=\”red\” weight=\”bold\”>sdkj.avi </span>”

改成支持html提示的写法。延时5秒退出。可怜，perl的，竟然没人帮忙。都自己瞎搞。

use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::Sexy;
use encoding ‘utf8′;
my $tooltip = Gtk2::Sexy::Tooltip->new;
my $hbox = Gtk2::HBox->new(FALSE, 5);
$hbox->show;
$tooltip->add($hbox);
my $image = Gtk2::Image->new_from_stock(’gtk-dialog-authentication’, ‘dialog’);
#my $image = Gtk2::Image->new_from_file(’/home/exp/dd.png’); #如果使用本地文件。就这样调用。
$image->show;
$hbox->pack_start_defaults($image);
my $label = Gtk2::Label->new;
$label->set_markup( $ARGV[0] );
$label->show;
$hbox->pack_start_defaults($label);
$tooltip->show;
eval {
alarm(5);
Gtk2->main;
alarm(0);
}

Leave a Reply