sub popup
{
        Tkx::bind($mw,"<3>", 
    [
        sub 
        {
            my($x,$y) = @_;
            my $current_window = Tkx::winfo('containing',$x,$y);
            my $pop_menu = $mw->new_menu;
            my $popup_menu = $pop_menu->new_menu(-tearoff => 0,);
            $popup_menu->add_command(-label => "Copy",-underline => 1,
+-command => [\&Tkx::event_generate,"$current_window","<<Copy>>"]);
            $popup_menu->add_command(-label => "Paste",-underline => 1
+,-command => [\&Tkx::event_generate,"$current_window","<<Paste>>"]);
            print "window = $current_window\n";
            $popup_menu->g_tk___popup($x,$y)
        
            
        }
        ,Tkx::Ev('%X','%Y')
        
    ] );

    
}
[download]