my $dataFrame = $cpWindow -> Frame;
	
foreach my $item ("Data1", "Data2") {
   my $lc_item = lc($item);
   $dataFrame -> Label(-text => '      ')->pack(-side => "left");

   my $frame = $dataFrame -> Frame(-relief      => "groove",
                                   -borderwidth => 1);

   $frame -> Label (-text => "[ $item ]"         )->pack;
   $frame -> Label (-text => "                  ")->pack;

   $frame -> LabEntry (-label        => "Component:",
                       -width        => 5,
                       -labelPack    => [ qw/-side left/ ],
                       -textVariable => \$objects{"$lc_item\_component"}
                      )->pack;

   my $rat = $frame -> LabEntry(-label        => "*Category:",
                                -width        => 5,
                                -labelPack    => [ qw/-side left/ ],
                                -textVariable => \$objects{"$lc_item\_category"},				
                                -state        => "disabled"
                               )->pack;
			
   $frame -> Checkbutton(-text               => "Available", 
                         -variable           => \$objects{"$lc_item\_available"}, 
                         -onvalue            => "Y",
                         -offvalue           => "N",
                         -highlightthickness => 0 
                        )->pack;

   $objects{"$lc_item\_available"} = "N";
   $frame -> pack(-side => "left");
}