use warnings;
use strict;
use Tk;
use Tk::LabFrame;

my $mw = new MainWindow ( ) ;


$mw->optionAdd('*foo*font' => '-adobe-courier-plain-r-normal-*-30-*-*-*-*-*-*');
$mw->optionAdd('*bar*font' => '-adobe-courier-bold-r-normal-*-30-*-*-*-*-*-*');
$mw->optionAdd('*foo*foreground' => 'red');
$mw->optionAdd('*foo*background' => 'green');
$mw->optionAdd('*bar*foreground' => 'white');
$mw->optionAdd('*bar*background' => 'yellow');

my $frame = $mw->LabFrame(-label => 'Frame', Name => "foo")->pack;
$frame->Label ( -text => 'foo', Name => "bar")->pack(-padx=>5, -pady=>5) ;
MainLoop();