Select Code to Download

sub add_edit_popup
{
...
  $obj->bind('<3>', ['PostPopupMenu', Ev('X'), Ev('Y'), ]);
  return $obj;
}

my $frame_GUI = $mw->toplevel;

...
my     $menu_import = $menu_export_import -> cascade(-label =>"Import"
+, -underline => 0, -tearoff => 0);
    $menu_import->command(-label => 'MS Word)',-command => sub{import_
+word()});
    $menu_import->command(-label => 'MS Excel', -command => sub{import
+_excel()});