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;

##</code><code>##

*Lab2*optionmenu*activeForeground:#000000
*Lab2*optionmenu*activeBackground:tan3
*Lab2*optionmenu*background:tan3
*Lab2*optionmenu*font:-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*
*Lab2*optionmenu*foreground:#000000
*Lab2*optionmenu*relief:raised
*Lab2*optionmenu*cursor:right_ptr
*Lab2*optionmenu*width:15
*Lab2*optionmenu*anchor:w
*Lab2*label*background:wheat1
*Lab2*label*font:-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*
*Lab2*label*foreground:black
*Lab2*label*relief:flat
*Lab2*label*width:15
*Lab2*label*anchor:w

##</code><code>##

package LabelOption;

use Tk::widgets qw /Optionmenu/;
use base qw/Tk::Frame/;
use strict;

Construct Tk::Widget 'LabelOption';

sub ClassInit
  {
    my($class, $mw) = @_;
    $class->SUPER::ClassInit($mw);
  }

sub Populate
  {
    my($self, $args) = @_;

    $self->SUPER::Populate($args);

    my($o) = $self->Optionmenu->pack();

    $self->Advertise('optionmenu' => $o);
    $self->ConfigSpecs('DEFAULT'  => [$o]);
    $self->Delegates('DEFAULT'    => $o);
  }

1;