Changeset 2289

Timestamp:

12/30/08 11:11:23 (3 years ago)

Author:

szabgab

Message:

add size limit to ppi highlighting

Location:

trunk/Padre

Files:

• lib/Padre/Config.pm (modified) (1 diff)
• lib/Padre/Document/Perl.pm (modified) (1 diff)
• t/02-new.t (modified) (1 diff)

trunk/Padre/lib/Padre/Config.pm

@@ -44 +44 @@
     editor_tabwidth               => 8,
     editor_indentwidth            => 4,
+    
+    ppi_highlight                 => 0,
+    ppi_highlight_limit           => 10_000,
 
     # When running a script from the application some of the files might have not been saved yet.

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

@@ -86 +86 @@
     my $self = shift;
     my $config = Padre->ide->config;
-    if ( $config->{ppi_highlight} ) {
+
+    if ( $config->{ppi_highlight} and $self->editor->GetTextLength < $config->{ppi_highlight_limit} ) {
         return Wx::wxSTC_LEX_CONTAINER;
     } else {

trunk/Padre/t/02-new.t

@@ -54 +54 @@
         editor_use_tabs               => 1,
         editor_perl5_beginner         => 1,
+
+        ppi_highlight                 => 0,
+        ppi_highlight_limit           => 10_000,
 
         search_terms       => [],