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