#!/usr/bin/env perl

BEGIN {
    $ENV{PERL_DL_NONLAZY} = 1;
}

use Tkx;
Tkx::package_require("Tktable");

use strict;
use warnings;

my $mw = Tkx::widget->new(".");
my $lamina_allow_frm = $mw->new_frame;

$lamina_allow_frm->configure(-borderwidth => 2, -relief => "groove");
$lamina_allow_frm->g_pack(-side => 'top', -fill => 'both');

my %hash = (
    '0,0' => 'OHT/FHT',
    '0,1' => 'AML'
);

my $lamina_table = $lamina_allow_frm->new_table( -rows => 9, -cols => 7, -variable => \%hash, -state => 'disabled')->g_pack;

Tkx::MainLoop();