Changeset 5379

Timestamp:

06/19/09 14:03:07 (3 years ago)

Author:

azawawi

Message:

[Perl 6] PGE coloring operational.

Location:

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6

Files:

• Perl6Document.pm (modified) (1 diff)
• Perl6PgeColorizerTask.pm (modified) (1 diff)

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

@@ -63 +63 @@
                             editor => $self->editor,
                             document => $self);
-                        $task->schedule();
                     }
                     # hand off to the task manager

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

@@ -115 +115 @@
     my $editor = $self->{main_thread_only}{editor};
     if($self->{_parse_tree}) {
+        $doc->remove_color;
         foreach my $pd (@{$self->{_parse_tree}}) {
             my $type = $pd->{type};