$button3 = $Menu->Menubutton( '-text' =>'language', '-padx' => 3, '-tearoff' => 0, '-background' => 'white', '-foreground' => 'black', '-activebackground' => 'green', '-activeforeground' => 'black', '-disabledforeground' => 'gray' ) ->pack( '-side' => 'left', '-after' => $Fmenu ); if (grep { $_ eq 'default'} keys %{$Conflang} ) { $cbdefault = $button3->radiobutton( '-label' => 'default', '-command' => \&setlang, '-value' => '', '-variable' => $Menulang, );