use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();
$mw->geometry('200x200');

$mw->optionAdd('*font', 'helvr12');
$mw->optionAdd('*LabFrame.label.font', 'helvb12');

my $lab_frm = $mw->LabFrame(-label => 'LabFrame Test')->pack;
$lab_frm->Label(-text => 'Label Test')->pack;

print STDERR $lab_frm->Subwidget('label')->PathName, "\n";

MainLoop;

##</code><code>##

$mw->optionAdd('*LabEntry*font', 'helvb12');
$mw->optionAdd('*LabEntry.entry.font', 'helvr12');