Changeset 848

Timestamp:

11/09/08 04:09:11 (3 years ago)

Author:

szabgab

Message:

change the perl5 synaxt highlighting of the currently open buffers

Location:

trunk/lib/Padre

Files:

• Document.pm (modified) (1 diff)
• Wx/MainWindow.pm (modified) (2 diffs)
• Wx/Menu.pm (modified) (1 diff)

trunk/lib/Padre/Document.pm

@@ -167 +167 @@
     my $self  = bless { @_ }, $class;
     
-    if (Padre->ide->config->{ppi_highlight}) {
-        $MIME_LEXER{'application/x-perl'} = wxSTC_LEX_CONTAINER;
-    }
-
     # Check and derive params
     unless ( $self->editor ) {

trunk/lib/Padre/Wx/MainWindow.pm

@@ -17 +17 @@
 use Padre::Wx::ToolBar ();
 use Padre::Wx::Output  ();
+use Padre::Document    ();
 use Padre::Documents   ();
 
@@ -1343 +1344 @@
     my $config = Padre->ide->config;
     $config->{ppi_highlight} = $event->IsChecked ? 1 : 0;
-    
+    $Padre::Document::MIME_LEXER{'application/x-perl'} = 
+        $config->{ppi_highlight} ? Wx::wxSTC_LEX_CONTAINER : Wx::wxSTC_LEX_PERL;
+        
+    foreach my $editor ( $self->pages ) {
+        #my $editor = $self->selected_editor;
+        next if not $editor->{Document}->isa('Padre::Document::Perl');
+        if ($config->{ppi_highlight}) {
+            $editor->{Document}->colourise;
+        } else {
+            $editor->{Document}->remove_color;
+            $editor->Colourise(0, $editor->GetLength);
+        }
+    }
+
     return;
 }

trunk/lib/Padre/Wx/Menu.pm

@@ -515 +515 @@
         );
         $menu->{experimental_ppi_highlight}->Check( $config->{ppi_highlight} ? 1 : 0 );
+        $Padre::Document::MIME_LEXER{'application/x-perl'} = 
+            $config->{ppi_highlight} ? Wx::wxSTC_LEX_CONTAINER : Wx::wxSTC_LEX_PERL;
+
     }