#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Data::Dumper;


my $mw = MainWindow->new();
my $Text = $mw->Text()->pack;
my $TextMenu = $Text->menu();
my $timer = $mw->repeat(5000,\&Loop);
MainLoop;

sub Loop {

#print Dumper[(\$TextMenu)],"\n\n"; 
#print join ' ',keys %$TextMenu,"\n"; 
#print $TextMenu{'_XEvent_'},"\n"; 

my %hash = %$TextMenu;
print join ' ',keys %hash,"\n";
print $hash{'_XEvent_'},"\n";

}