Changeset 2276

Timestamp:

12/30/08 07:05:03 (3 years ago)

Author:

szabgab

Message:

move the lexer method to the Document::Perl subclass

Location:

trunk/Padre/lib/Padre

Files:

• Document/Perl.pm (modified) (1 diff)
• Wx/Editor.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -83 +83 @@
 
 
-
-
+sub lexer {
+    my $self = shift;
+    my $config = Padre->ide->config;
+    if ( $config->{ppi_highlight} ) {
+        return Wx::wxSTC_LEX_CONTAINER;
+    } else {
+        return $self->SUPER::lexer();
+    }
+}
 
 #####################################################################

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -74 +74 @@
     my ($self) = @_;
 
-    my $lexer = $self->{Document}->lexer;
-    
-    if ($lexer eq Wx::wxSTC_LEX_PERL) {
-        my $config = Padre->ide->config;
-        if ( $config->{ppi_highlight} ) {
-            $lexer = Wx::wxSTC_LEX_CONTAINER;
-        }
-    }
-    
-    $self->SetLexer( $lexer );
+    $self->SetLexer( $self->{Document}->lexer );
 #    $self->Colourise(0, $self->GetTextLength);