#!/bin/perl -w

# Try to get a simple dialog box to work.

use Tk;			# Bring in the Tk stuff.
use Tk::DialogBox;

my $mw = MainWindow->new;
# Get rid of main window, but keep some of it around.
$mw->withdraw();
print "Main window created, withdrawn\n";

my $dialog = $mw->DialogBox (-title => "Please pick one of the three",
                             -buttons => ["One", "Two", "Three"]);
my $item = $dialog->Show();				# ???
print "Returned from the show, got $item\n";

#  Done