Changeset 5419

Timestamp:

06/20/09 10:13:20 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Implemented all remaining quick fixes except Fix matching =begin/=end POD pairs

File:

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

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

@@ -245 +245 @@
                                 )),
                             sub { 
-                                #XXX-implement add space before brace
+                                #Insert a space before brace
+                                my $line_start = $editor->PositionFromLine( $current_line_no );
+                                my $line_end   = $editor->GetLineEndPosition( $current_line_no );
+                                my $line_text  = $editor->GetTextRange($line_start, $line_end);
+                                $line_text =~ s/$keyword\(/$keyword \(/;
+                                $editor->SetSelection( $line_start, $line_end );
+                                $editor->ReplaceSelection( $line_text );
                             },
                         );
@@ -270 +276 @@
                     $menu->Append( -1, Wx::gettext("Use ~ instead of . for string concatenation") ),
                     sub { 
-                        #XXX-implement use ~ instead of . for string concatenation
+                        #replace first '.' with '~' in the current line
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        my $line_end   = $editor->GetLineEndPosition( $current_line_no );
+                        my $line_text  = $editor->GetTextRange($line_start, $line_end);
+                        $line_text =~ s/\./~/;
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );
                     },
                 );
@@ -281 +293 @@
                     $menu->Append( -1, Wx::gettext("Use . instead of -> for method call") ),
                     sub { 
-                        #XXX-implement Use . instead of -> for method call
+                        #Replace first '->' with '.' in the current line
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        my $line_end   = $editor->GetLineEndPosition( $current_line_no );
+                        my $line_text  = $editor->GetTextRange($line_start, $line_end);
+                        $line_text =~ s/\-\>/\./;
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );
                     },
                 );
@@ -292 +310 @@
                     $menu->Append( -1, Wx::gettext("Use Perl 6 constructor syntax") ),
                     sub { 
-                        #XXX-implement Use Perl 6 constructor syntax
+                        #replace first 'new Foo' with 'Foo.new' in the current line
+                        
                     },
                 );