my $menu = $win->Menu(-tearoff=>0, -menuitems=>[
      [qw/command Edit/, -command=>[\&load_in_editor, $created_text, \$hold_line]],
    ]);
    $created_text->menu($menu);
    $created_text->bind('<3>', [\&get_text_line, Ev('X'), Ev('Y'), \$hold_line]);