Changeset 5517

Timestamp:

06/23/09 20:36:44 (3 years ago)

Author:

azawawi

Message:

[Perl 6] No more insertion of text; just current line string replacement.

File:

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

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

@@ -247 +247 @@
                         my $line_text  = $editor->GetTextRange($line_start, $line_end);
                         my $indent = ($line_text =~ /(^\s+)/) ? $1 : '';
-                        $editor->InsertText($line_start, "${indent}my $var_name;$nl");
+                        $line_text = 
+                            "${indent}my $var_name;$nl" .
+                            $line_text;
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );
                     },
                 };
@@ -285 +289 @@
                         my $line_text  = $editor->GetTextRange($line_start, $line_end);
                         my $indent = ($line_text =~ /(^\s+)/) ? $1 : '';
-                        $editor->InsertText($line_start, 
-                            "${indent}sub $routine_name {$nl" .
+                        $line_text =  "${indent}sub $routine_name {$nl" .
                             "${indent}\t#XXX-implement$nl" .
-                            "${indent}}$nl");
+                            "${indent}}$nl" .
+                            $line_text;
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );                            
                     },
                 };
@@ -647 +653 @@
                     listener => sub {
                         # comment current error by putting a hash and a space
-                        # since #( is an embedded comment in Perl 6!
-                        # see S02:166
-                        my $line_start = $editor->PositionFromLine( $current_line_no );
-                        $editor->InsertText($line_start, '# ');
+                        # since #( is an embedded comment in Perl 6! see S02:166
+                        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 = "# ${line_text}";
                     },
                 };