#!/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 => 'top', -fill => 'x', -pady => 3);

# Location label/entry
my $frmLocations = $frmTop->Frame(-bd => 2)->pack(-side => 'top', -fill => 'y');
my $lblLocationsID = $frmLocations->Label(-text => "Locations")->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', -fill => 'y');
my $lblBtypeID = $frmLocations->Label(-text => "Types"	)->pack(-side => 'left');
my $edtBtypeID = $frmLocations->Entry(-textvariable => \$btypes,-background => 'white')->pack(-side => 'left');
		
 
MainLoop;