Changeset 2279

Timestamp:

12/30/08 08:08:26 (3 years ago)

Author:

szabgab

Message:

reuse the new lexer function of the Document::Perl subclass

File:

• trunk/Padre/lib/Padre/Wx/Menu/Perl.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Wx/Menu/Perl.pm

@@ -88 +88 @@
                 my $doc = $editor->{Document};
                 next unless $doc->isa('Padre::Document::Perl');
+                $editor->SetLexer( $doc->lexer );
                 if ( $config->{ppi_highlight} ) {
-                    $editor->SetLexer(Wx::wxSTC_LEX_CONTAINER);
                     $doc->colorize;
                 } else {
-                    $editor->SetLexer(Wx::wxSTC_LEX_PERL);
                     $doc->remove_color;
                     $editor->Colourise( 0, $editor->GetLength );