sub popup
{
	my $current_window = $_[0]; #value that has the screen it's on
	print "- $current_window\n";
	my $pop_menu = $mw->new_menu;
	my $popup_menu = $pop_menu->new_menu(-tearoff => 0,);
	
	$popup_menu->add_command(-label => "Copy",-underline => 1,-command => sub
	{

	[\&Tkx::event_generate,$mw,"<<Copy>>"]

	});
	
    	Tkx::bind($mw,"<3>", 
	[
		sub 
		{
			my($x,$y) = @_;
			foreach my $i (@_)
			{
				print "$i\n";
				##Most of the values I get from TXK:Ev are ??
			} 
			$popup_menu->g_tk___popup($x,$y)
			
		}
		,Tkx::Ev("%X", "%Y","%a","%B","%b","%c","%D","%d","%f","%h","%K","%m","%o","%R","%E","%#","%s","%S","%t","%w")
		
	] );
}

popup($window);