#!/usr/local/bin/perl -w
use Tk;
use strict;

my %info;

my $mw = MainWindow->new;
$mw->title("Data Entry");
my $f = $mw->Frame->pack(-side => 'bottom');
my $t = $mw->Scrolled("Text", -width => 40, 
          -wrap => 'none')->pack(-expand => 1, -fill => 'both');

foreach (qw/A B C D E F G H I_J L_O/) {
    my $w = $t->Label(-text => "$_:", -relief => 'groove', -width => 20);
    $t->windowCreate('end', -window => $w);
    $w = $t->Entry(-width => 20, -textvariable => \$info{$_});
    $t->windowCreate('end', -window => $w);
    $t->insert('end', "\n");
}
$t->configure(-state => 'disabled'); # disallows user typing

MainLoop;
