use Tk;
use Tk::Balloon;
use strict ;

my ($mw);   
my (%tooltip_mes, %tooltip_status_mes, %balloon_wg, %wg, @local_options, @mes_options, @sta_options, $option_resb, $option_res);

$mw = MainWindow->new(-title => "Simple example");


$local_options[0] = 'Option 1';
$local_options[1] = 'Option 2';
$local_options[2] = 'Option 3';
$local_options[3] = 'Option 4';

$mes_options[0] = "tooltip 1\nOption A";
$mes_options[1] = "tooltip 2\nOption B";
$mes_options[2] = "tooltip 3\nOption C";
$mes_options[3] = "tooltip 4\nOption D";

$wg{APullDown_Option} = $mw->Optionmenu(
				-textvariable     => \$option_res,
				-state	    => 'normal',
			 	-options      => [@local_options])->pack;

$wg{BPullDown_Option} = $mw->Optionmenu(
				-textvariable     => \$option_resb,
				-state	    => 'normal',
			 	-options      => [@local_options])->pack;

$wg{Status_Label} = $mw->Label(-borderwidth => 2, -relief => 'groove')
  ->pack(-side => 'bottom');

$balloon_wg{pulldown} = $mw->Balloon(-statusbar => $wg{Status_Label});
$balloon_wg{pulldown}->attach($wg{APullDown_Option}, -msg => [@mes_options]);

$balloon_wg{bpulldown} = $mw->Balloon(-statusbar => $wg{Status_Label});
$balloon_wg{bpulldown}->attach($wg{BPullDown_Option}, -state => 'balloon',
							-msg => ['A1', 'B2','C3', 'D4']);


MainLoop;