use Tk;

use lib '/genesis/oscripts/misc_scr/lib';
use OwegoCAM::GUI::GUIBuilder::LabelOption;

my($mw) = MainWindow->new;
my($fileloc) = "/genesis/oscripts/misc_scr/lib/OwegoCAM/GUI/GUIBuilder/.Xdefaults.ocd";
$mw->optionReadfile($fileloc) if (-e $fileloc);

my(%foo) = ('bar' => [qw/yes no maybe/]);

my($bah) = $mw->LabelOption(-class   => 'Lab2',
			    -options => $foo{'bar'},
			    -label   => 'Is it safe?',
			    -labelPack => [-side => 'left']
			   )->pack();

MainLoop;