view release on metacpan or  search on metacpan

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

    EVT_MENU ($self, Wx::wxID_OPEN(), 'popup_file_dialog');

    {
      my $item
        = $self->{'go_back_menuitem'}
          = $menu->Append (Wx::wxID_ANY(),
                           Wx::GetTranslation("&Back\tCtrl-B"),
                           Wx::GetTranslation('Go back to the previous POD.'));
      EVT_MENU ($self, $item, 'go_back');
      Wx::Event::EVT_UPDATE_UI ($self, $item, \&_update_history_menuitems);
    }
    {
      my $item
        = $self->{'go_forward_menuitem'}
          = $menu->Append (Wx::wxID_ANY(),
                           Wx::GetTranslation("&Forward\tCtrl-F"),
                           Wx::GetTranslation('Go forward again.'));
      EVT_MENU ($self, $item, 'go_forward');
    }
    {
      my $item
        = $self->{'reload_menuitem'}
          = $menu->Append (Wx::wxID_ANY(),
                           Wx::GetTranslation('&Reload'),
                           Wx::GetTranslation('Re-read the POD file.'));
      EVT_MENU ($self, $item, 'reload');
    }

    $menu->AppendSeparator;
    $menu->Append (Wx::wxID_PRINT(),
                   '',
                   Wx::GetTranslation('Print the document.'));
    EVT_MENU ($self, Wx::wxID_PRINT(), 'popup_print');

    $menu->Append (Wx::wxID_PREVIEW(),
                   '',
                   Wx::GetTranslation('Preview document print.'));
    EVT_MENU ($self, Wx::wxID_PREVIEW(), 'popup_print_preview');

    $menu->Append (Wx::wxID_PRINT_SETUP(),
                   Wx::GetTranslation('Page &Setup'),
                   Wx::GetTranslation('Printer setups.'));
    EVT_MENU ($self, Wx::wxID_PRINT_SETUP(), 'popup_print_setup');

    $menu->AppendSeparator;
    $menu->Append(Wx::wxID_EXIT(),
                  '',
                  Wx::GetTranslation('Close this window'));
    EVT_MENU ($self, Wx::wxID_EXIT(), 'quit');
  }

  # {
  #   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');
  #   }
  # }

  {
    my $menu = $self->{'section_menu'} = Wx::Menu->new;
    my $label = $self->{'section_menu_label'} = Wx::GetTranslation('&Section');
    $menubar->Append ($menu, $label);

    # Wx::UpdateUIEvent::SetMode(Wx::wxUPDATE_UI_PROCESS_SPECIFIED());
    # Wx::UpdateUIEvent::SetMode(Wx::wxUPDATE_UI_PROCESS_ALL());
    # No ExtraStyle on menu?
    # $menu->SetExtraStyle ($menu->GetExtraStyle
    #                       | Wx::wxWS_EX_PROCESS_UPDATE_EVENTS());
    # Wx::Event::EVT_UPDATE_UI ($self, $self, \&_update_sections);
  }
  {
    my $menu = $self->{'index_menu'} = Wx::Menu->new;
    my $label = $self->{'index_menu_label'} = Wx::GetTranslation('&Index');
    $menubar->Append ($menu, $label);
  }
  {
    my $menu = Wx::Menu->new;
    $menubar->Append ($menu, Wx::GetTranslation('&Help'));
    {
      $menu->Append (Wx::wxID_ABOUT(),
                     '',
                     Wx::GetTranslation('Show about dialog'));
      EVT_MENU ($self, Wx::wxID_ABOUT(), 'popup_about');
    }
    {
      my $item = $menu->Append (Wx::wxID_ANY(),
                                Wx::GetTranslation('&Pod Browser POD'),
                                Wx::GetTranslation('Go to the POD documentation for this browser itself'));
      EVT_MENU ($self, $item, 'goto_own_pod');
    }
  }

  $self->CreateStatusBar;

  my $podtext
    = $self->{'podtext'}
      = Wx::Perl::PodRichText->new ($self);
  $podtext->SetFocus;
  Wx::Event::EVT_MOTION ($podtext, \&_do_podtext_mouse_motion);
  Wx::Event::EVT_ENTER_WINDOW ($podtext, \&_do_podtext_mouse_motion);
  Wx::Event::EVT_LEAVE_WINDOW ($podtext, \&_do_podtext_mouse_leave);
  Wx::Perl::PodRichText::EVT_PERL_PODRICHTEXT_CHANGED
    ($self, $podtext, \&_do_pod_changed);

  $self->SetSize ($self->GetBestSize);
  # _update_history_menuitems($self);  # initial insensitive
  _update_sections($self);  # initial insensitive