#!/usr/bin/perl

use Gnome;

init Gnome "gnome-dns.pl";

init Gnome::DNS;

$NAME = "DNS Lookup";

$w = new Gtk::Window -toplevel;
show $w;

$b = new Gtk::Button "Lookup";
$w->add($b);
show $b;

$b->signal_connect(clicked => sub {

	print "Starting DNS lookup...\n";

	Gnome::DNS->lookup("www.gnome.org",
		sub {
			my $o = Gnome::DialogUtil->ok("Address of www.gnome.org is $_[1], data is $_[0]");
			$o->signal_connect("destroy", sub {Gtk->main_quit});
		}, 34);
});

main Gtk;