23 lines
655 B
Perl
23 lines
655 B
Perl
|
#!/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;
|