Mega Code Archive

 

Categories / Perl / GUI

 

Embeded controls

#!/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;