libgtk2-perl-doc 2:1.223-1build3 / usr / share / doc / libgtk2-perl-doc / examples / linkbutton.pl

#!/usr/bin/perl -w

use strict;
use Gtk2 -init;

# you set one of these per app.
Gtk2::LinkButton->set_uri_hook (sub {
	my ($button, $url) = @_;
	my $message = Gtk2::MessageDialog->new
			($button->get_toplevel, [], 'info', 'ok',
			 "In a real app, you'd figure out how to handle "
			 ."opening urls, and do that here.  This is just "
			 ."an example of using the widget, so we don't "
			 ."mess around with all of that.\n\nUrl: $url");
	$message->run;
	$message->destroy;
});

my $window = Gtk2::Window->new;

my $button = Gtk2::LinkButton->new ("http://gtk2-perl.sf.net",
				    "Gtk2-Perl Homepage");

$window->add ($button);
$window->show_all;
$window->signal_connect (destroy => sub { Gtk2->main_quit });
Gtk2->main;