#!/usr/bin/perl
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::Sexy;
my $tooltip = Gtk2::Sexy::Tooltip->new;
my $hbox = Gtk2::HBox->new(6, TRUE);
$hbox->show;
$tooltip->add($hbox);
my $image = Gtk2::Image->new_from_stock('gtk-dialog-authentication', 'dialog');
$image->show;
$hbox->pack_start($image, FALSE, TRUE, 0);
my $label = Gtk2::Label->new;
$label->set_markup( "<span size=\"large\" weight=\"bold\">Text</span>" );
$label->show;
$hbox->pack_start($label, TRUE, TRUE, 0);
$tooltip->show;
Gtk2->main;