Re: Tk - aligning Labels

[Sandy]

This is actually VERY easy to do, if you use some of the options to LABEL.

Add ,-width=>15,-anchor=>'w' to your Label definitions and it will look much better.

Modified code:

#!/usr/bin/perl

use strict;
use Tk;

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

my $mw;

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

my $frmTop = $mw->Frame(-bd => 2,-relief => 'ridge')->pack(-side => 't
+op', -fill => 'x', -pady => 3);

# Location label/entry
my $frmLocations = $frmTop->Frame(-bd => 2)->pack(-side => 'top', -fil
+l => 'y');
my $lblLocationsID = $frmLocations->Label(-text => "Locations",-width=
+>15,-anchor=>'w')->pack(-side => 'left');
my $edtLocationsID = $frmLocations->Entry(-textvariable => \$locations
+,-background => 'white')->pack(-side => 'left');

# type label/entry
my $frmLocations = $frmTop->Frame(-bd => 2)->pack(-side => 'top', -fil
+l => 'y');
my $lblBtypeID = $frmLocations->Label(-text => "Types",-width=>15, -an
+chor=>'w'   )->pack(-side => 'left');
my $edtBtypeID = $frmLocations->Entry(-textvariable => \$btypes,-backg
+round => 'white')->pack(-side => 'left');
        
 
MainLoop;