$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]);
# lines A
#$balloon_wg{pulldown}->attach($wg{APullDown_Option}, -state => 'balloon',
#							-msg => ['A1', 'B2','C3', 'D4']);
# line B
#$balloon_wg{pulldown}->attach($wg{APullDown_Option}, -msg => [@mes_options]);