#!/usr/bin/perl

use strict;
use warnings;
use Tk;
require Tk::LabFrame;
require Tk::LabEntry;

my $mw = MainWindow->new;
$mw->geometry("150x80");
#$mw->optionAdd( "LabFrame.font", "helvb12" );

my $canvas_total = "Label Test";
my $le_t_text    = "LabFrame Test";
my $le           = $mw->LabEntry(
    -textvariable  => \$canvas_total,
    -labelVariable => \$le_t_text,
    -labelPack     => [ -anchor => "center" ]
);
$le->pack( -expand => 1, -fill => "y" );

#print STDERR $le->optionGet( "font", ref $le ), "\n";

MainLoop;