Re: Tk - aligning Labels

[Khen1950fx]

I used windowCreate:

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $btypes;
my $locations;
my $bstats;

my $mw = MainWindow->new;
$mw->geometry("400x300");
$mw->title("First App");

my $f = $mw->Frame->pack(-side => 'bottom');
$f->Button(
    -text    => "Exit", 
    -command => sub { exit; }
)->pack(-side => 'left');

my $t = $mw->Scrolled("Text", 
    -width => 50, 
    -wrap => 'none'
    )->pack(-expand => 1, -fill => 'both');

foreach (qw/Locations Types/) {
     $mw = $t->Label(
         -text => "$_:", 
         -relief => 'groove', 
         -width => 30,
     );
     $t->windowCreate('end', -window => $mw);
     $mw = $t->Entry(
         -width => 20, 
         -textvariable => \$locations,
     );
     $t->windowCreate('end', -window => $mw);
     $t->insert('end', "\n");
};
$t->configure(-state => 'enabled'); 

MainLoop;