Changeset 5420

Timestamp:

06/20/09 10:30:26 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Implemented new Foo (C++) -> Foo.new (Perl 6) quick fix

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm (modified) (1 diff)

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

@@ -310 +310 @@
                     $menu->Append( -1, Wx::gettext("Use Perl 6 constructor syntax") ),
                     sub { 
-                        #replace first 'new Foo' with 'Foo.new' in the current line
-                        
+                        #Replace first 'new Foo' with 'Foo.new' 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);
+                        #new Point or
+                        #new Point::Bar or
+                        #new Point-In-Box
+                        $line_text =~ s/new\s+([\w\-\:\:]+)?/$1.new/;
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );
                     },
                 );