#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
require Tk::Pane;
require Tk::BrowseEntry;
require Tk::DialogBox;



my $MW = MainWindow->new(
    -title      => 'GUI Demo',
    -name       => 'Demo',
);

$MW->resizable(0,0); # not resizable in any direction

foreach my $txt (<DATA>) {
    chomp($txt);
    my $b = $MW->Button(
            -text    => $txt,
            -width   => 30,
            -height  => 3,
            -command => sub {manipulate_link($txt)},
        );
    $b->pack(qw/-side top -expand yes -pady 3/);
}

MainLoop;

__DATA__
Compile all
Compile selected blocks
Get selected blocks
Put selected blocks
Browse & Compare
Exit