in reply to Re^2: How to Change Defaults in Basic Tk Menu
in thread How to Change Defaults in Basic Tk Menu

Experience with Tk, documentation of Tk::Menu, plus Data::Dumper and a few lines like 
print Dumper($menu->entrycget(0, '-menu'));
print Dumper($menu->entrycget(0, '-menu')->entrycget(0, '-label'));

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom