Ticket #182: autocompPatch

Index: Padre/lib/Padre/Document.pm
===================================================================
--- Padre/lib/Padre/Document.pm (revision 2100)
+++ Padre/lib/Padre/Document.pm (working copy)
@@ -607,17 +607,23 @@
 
    # line from beginning to current position
    my $prefix = $editor->GetTextRange($first, $pos);
-      $prefix =~ s{^.*?((\w+::)*\w+)$}{$1};
+   $prefix =~ s{^.*?((\w+::)*\w+)$}{$1};
    my $last   = $editor->GetLength();
    my $text   = $editor->GetTextRange(0, $last);
+   my $pre_text  = $editor->GetTextRange(0, $first+length($prefix)); 
+   my $post_text = $editor->GetTextRange($first, $last); 
 
    my $regex;
-   eval { $regex = qr{\b($prefix\w*(?:::\w+)*)\b} };
+   eval { $regex = qr{\b($prefix\w+(?:::\w+)*)\b} };
    if ($@) {
        return ("Cannot build regex for '$prefix'");
    }
+
    my %seen;
-   my @words = grep { ! $seen{$_}++ } sort ($text =~ /$regex/g);
+   my @words;
+   push @words ,grep { ! $seen{$_}++ } reverse ($pre_text =~ /$regex/g);
+   push @words , grep { ! $seen{$_}++ } ($post_text =~ /$regex/g);
+
    if (@words > 20) {
        @words = @words[0..19];
    }