| | 350 | === Context Menu |
| | 351 | from {{{Padre::Plugin::Nopaste}}} |
| | 352 | {{{#!perl |
| | 353 | ####### |
| | 354 | # Add Preferences to Context Menu |
| | 355 | ####### |
| | 356 | sub 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 | ---- |