#!/usr/local/bin/perl --
use strict;
use warnings;
use Tk;
my $mw = new MainWindow;
$mw->geometry( "300x300" );

my $label = $mw->Label( -text => "Hello World" )->pack;
for my $relief ( qw/ raised sunken flat ridge solid groove / ){
    my $button = $mw->Button(
        -text    => $relief, 
		-command => \&showMessage,
        -relief  => $relief,
        -width   => 10,
    )-> pack();
}

$mw->WidgetDump; use Tk::WidgetDump; ## debuggery

$mw->MainLoop;

sub showMessage{
	$Tk::widget->messageBox(
        -message => "The glossary has been merged",
        -icon=> 'info',
    );
}

__END__