my $fm = $menubar->entrycget('File', -menu);
 sub select_file { $fm->entryconfigure('Edit', - state=>'normal') }