Changeset 7485

Timestamp:

08/23/09 07:07:56 (2 years ago)

Author:

azawawi

Message:

[Perl 6] Quick fixes are working again ... i hope :)

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6QuickFixProvider.pm (modified) (4 diffs)

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

@@ -7 +7 @@
 use Padre::Wx ();
 use Padre::Plugin::Perl6::Util ();
+use Padre::QuickFixProvider ();
 
 our $VERSION = '0.57';
+our @ISA = ('Padre::QuickFixProvider');
 
 #
@@ -26 +28 @@
 # Tries to find quick fixes for errors in the current line
 #
-sub _find_quick_fix {
-    my ( $self, $editor ) = @_;
-
-    if ( not defined $self->{issues} ) {
-        $self->{issues} = [];
+sub quick_fix_list {
+    my ( $self, $doc, $editor ) = @_;
+
+    if ( not defined $doc->{issues} ) {
+        $doc->{issues} = [];
     }
 
@@ -37 +39 @@
 
     my @items      = ();
-    my $num_issues = scalar @{ $self->{issues} };
-    foreach my $issue ( @{ $self->{issues} } ) {
+    my $num_issues = scalar @{ $doc->{issues} };
+    foreach my $issue ( @{ $doc->{issues} } ) {
         my $issue_line_no = $issue->{line} - 1;
         if ( $issue_line_no == $current_line_no ) {
@@ -533 +535 @@
 
         # add "comment error line" as the last resort to solving an issue
-        foreach my $issue ( @{ $self->{issues} } ) {
+        foreach my $issue ( @{ $doc->{issues} } ) {
             my $issue_line_no = $issue->{line} - 1;
             if ( $issue_line_no == $current_line_no ) {