Changeset 5416

Timestamp:

06/20/09 09:44:46 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Quick Fix for "undeclared variable" works now.

File:

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

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

@@ -197 +197 @@
     $menu->AppendSeparator;
 
+    my $new_line;
+    require Padre::Util;
+    my $doc_new_line_type = Padre::Util::newline_type($self->text_get);
+    if($doc_new_line_type eq "WIN") {
+        $new_line = "\r\n";
+    } elsif($doc_new_line_type eq "MAC") {
+        $new_line = "\r";
+    } else {
+        #NONE, UNIX or MIXED
+        $new_line = "\n";
+    }
     foreach my $issue ( @{$self->{issues}} ) {
         my $issue_line_no = $issue->{line} - 1;
@@ -209 +220 @@
                     $menu->Append( -1, sprintf( Wx::gettext("Insert declaration for '%s'"), $var_name) ),
                     sub { 
-                        #XXX-implement insert variable declaration
+                        #Insert a variable declaration before the start of the current line
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        $editor->InsertText($line_start, "my $var_name;$new_line");
                     },
                 );