#!/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 $lamina_table = $lamina_allow_frm->new_table( -rows => 9, -cols => 7);
my $temp = $lamina_allow_frm->new_label(-text => "FHT/OHT")->g_pack;

$lamina_table->set(0, 0, $temp);
$lamina_table->g_pack;

Tkx::MainLoop();