view release on metacpan or  search on metacpan

lib/Wx/Perl/PodBrowser.pm  view on Meta::CPAN

  # {
  #   my $menu = Wx::Menu->new;
  #   $menubar->Append ($menu, Wx::GetTranslation('&Edit'));
  #
  #   {
  #     my $item
  #       = $self->{'edit_copy_menuitem'}
  #         = $menu->Append (Wx::wxID_COPY(),
  #                          '',
  #                          Wx::GetTranslation('Copy selected text to the clipboard.'));
  #     EVT_MENU ($self, $item, 'edit_copy');
  #     Wx::Event::EVT_UPDATE_UI ($self, $item, \&_update_can_copy);
  #   }
  #   {
  #     my $item = $menu->Append (Wx::wxID_SELECTALL(),
  #                               '',
  #                               Wx::GetTranslation('Select all text for cut and paste.'));
  #     EVT_MENU ($self, $item, 'edit_select_all');
  #   }
  # }