Changeset 5382

Timestamp:

06/19/09 22:53:20 (3 years ago)

Author:

azawawi

Message:

[Perl 6] highlight if coloring settings are changed.

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Preferences.pm (modified) (2 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Preferences.pm

@@ -60 +60 @@
     # update configuration
     my $old_p6_highlight = $prefs->{p6_highlight};
+    my $old_colorizer = $prefs->{colorizer};
     $prefs->{p6_highlight} = $self->_colorizer_cb->GetValue();
     $prefs->{colorizer} = ($self->_colorizer_list->GetSelection() == 0) ? 
@@ -67 +68 @@
     $plugin->config_write($prefs);
 
-    if($old_p6_highlight != $prefs->{p6_highlight}) {
-        $plugin->highlight;
+    if($old_p6_highlight != $prefs->{p6_highlight} || $old_colorizer ne $prefs->{colorizer}) {
+        # a configuration change for colorizer
+        if( $prefs->{p6_highlight} ) {
+            $plugin->highlight;
+        }
     }