Changeset 2272

Timestamp:

12/30/08 01:57:31 (3 years ago)

Author:

szabgab

Message:

move the PPI syntax highlighting out from experimental to the Perl menu

Location:

trunk/Padre/lib/Padre/Wx/Menu

Files:

• Experimental.pm (modified) (1 diff)
• Perl.pm (modified) (1 diff)

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

@@ -85 +85 @@
     );
 
-    # Experimental PPI-based highlighting
-    $self->{ppi_highlight} = $self->AppendCheckItem( -1,
-        Wx::gettext("Use PPI for Perl5 syntax highlighting")
-    );
-    Wx::Event::EVT_MENU( $main,
-        $self->{ppi_highlight},
-        sub {
-            # Update the saved config setting
-            my $config = Padre->ide->config;
-            $config->{ppi_highlight} = $_[1]->IsChecked ? 1 : 0;
-
-            # Refresh the menu (and MIME_LEXER hook)
-            $self->refresh;
-
-            # Update the colourise for each Perl editor
-            foreach my $editor ( $_[0]->pages ) {
-                my $doc = $editor->{Document};
-                next unless $doc->isa('Padre::Document::Perl');
-                if ( $config->{ppi_highlight} ) {
-                    $doc->colorize;
-                } else {
-                    $doc->remove_color;
-                    $editor->Colourise( 0, $editor->GetLength );
-                }
-            }
-
-            return;
-        }
-    );
-
     return $self;
 }

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

@@ -68 +68 @@
     );
 
+    # Experimental PPI-based highlighting
+    $self->{ppi_highlight} = $self->AppendCheckItem( -1,
+        Wx::gettext("Use PPI for Perl5 syntax highlighting")
+    );
+    Wx::Event::EVT_MENU( $main,
+        $self->{ppi_highlight},
+        sub {
+            # Update the saved config setting
+            my $config = Padre->ide->config;
+            $config->{ppi_highlight} = $_[1]->IsChecked ? 1 : 0;
+
+            # Refresh the menu (and MIME_LEXER hook)
+            $self->refresh;
+
+            # Update the colourise for each Perl editor
+            foreach my $editor ( $_[0]->pages ) {
+                my $doc = $editor->{Document};
+                next unless $doc->isa('Padre::Document::Perl');
+                if ( $config->{ppi_highlight} ) {
+                    $doc->colorize;
+                } else {
+                    $doc->remove_color;
+                    $editor->Colourise( 0, $editor->GetLength );
+                }
+            }
+
+            return;
+        }
+    );
+
+
     return $self;
 }