my $acc_type_frame = $tab2->Frame()->pack(-side=>'top', -anchor=>'nw', -padx=>'15'); #tab 2 $acc_type_frame->Label(-font => 'tab_rus_bold', -text => 'Тип АКБ:') ->pack(-side=>'left'); #define EE_LCD_AccType 0- Кислотный Рег, 1- Гелевый/AGM T , 2- Кислотный T, //3- Щелочной $acc_type_frame->Radiobutton(-font => 'tab_rus', -text => 'Кислотный Рег', -value => '0', -variable => \$acc_type, -command => sub {&write_map('384','0')}) ->pack(-side=>'left'); $acc_type_frame->Radiobutton(-font => 'tab_rus', -text => 'Гелевый/AGM T', -value => '1', -variable => \$acc_type, -command => sub {&write_map('384','1')}) ->pack(-side=>'left'); $acc_type_frame->Radiobutton(-font => 'tab_rus', -text => 'Кислотный Т', -value => '2', -variable => \$acc_type, -command => sub {&write_map('384','2')}) ->pack(-side=>'left'); $acc_type_frame->Radiobutton(-font => 'tab_rus', -text => 'Щелочной', -value => '3', -variable => \$acc_type, -command => sub {&write_map('384','3')}) ->pack(-side=>'left'); &extra_acc_vals($tab2, $acc_type_frame) if (($acc_type==0 ) || ($acc_type==3));