#!/usr/local/bin/perl -w
use strict;
use Tk;
require Tk::Pane;
require Tk::BrowseEntry;
require Tk::DialogBox;
use warnings;
use strict;
use Tk;



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

#$MW->resizable(1,1); # not resizable in any direction
$MW->minsize(200,400);
$MW->maxsize(200,400);

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