Changes between Version 50 and Version 51 of PadrePluginCookbookRecipie05


Ignore:
Timestamp:
Aug 25, 2012, 10:44:35 AM (2 years ago)
Author:
bowtie
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • PadrePluginCookbookRecipie05

    v50 v51  
    348348 
    349349---- 
     350=== Context Menu 
     351from {{{Padre::Plugin::Nopaste}}} 
     352{{{#!perl 
     353####### 
     354# Add Preferences to Context Menu 
     355####### 
     356sub event_on_context_menu { 
     357        my ( $self, $document, $editor, $menu, $event ) = @_; 
     358 
     359        #Test for valid file type 
     360        return if not $document->filename; 
     361 
     362        $menu->AppendSeparator; 
     363 
     364        my $item = $menu->Append( -1, Wx::gettext('Nopaste Preferences...') ); 
     365        Wx::Event::EVT_MENU( 
     366                $self->main, 
     367                $item, 
     368                sub { $self->plugin_preferences }, 
     369        ); 
     370 
     371        return; 
     372} 
     373}}} 
     374 
     375---- 
    350376 
    351377=== registered_documents