...

	### Language Menu


	$popuplang = $Btline->Menu(
			'-tearoff'				=> 0,
			'-background'			=> 'white',
			'-foreground'			=> 'black',
			'-activebackground'		=> 'green',
			'-activeforeground'		=> 'black',
			'-disabledforeground'          => 'gray'
		);


	if (grep { $_ eq 'default'} keys %{$Conflang} ) {



		$popuplang->add(
							'radiobutton',
							'-command'	=> \&setlang,
							'-label'	        => 'default',
							'-value'	        => '',
							'-variable'	        => $Menulang,
						);
	}

	$popuplang->invoke(0) unless $Menulang;


	foreach $l (sort {$a cmp $b} keys %{$Conflang}) {
		next if $l eq 'default';

		$popuplang->add('radiobutton',
						'-command'	=> \&setlang,
						'-label'	=> $l,
						'-value'	=> $l,
						'-variable'	=> $Menulang
					);
    }


	$button3 = $Btline->Button(
			'-command'		=> \&poplang,
			'-text'			=> "language",
			'-padx'			=> 3,
			'-relief'		        => 'groove',
			'-borderwidth'	        => 2
		)
			->pack(
					'-side'		=> 'left',
					'-anchor'	        => 'nw'	
				);

}


#################### poplang ####################
# Language menu
sub poplang {
	$popuplang->Popup('-popover' => $button3, '-popanchor' => 'nw');
}

...