Changeset 5518

Timestamp:

06/23/09 20:39:04 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Fixed a missing replacement

File:

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

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

@@ -658 +658 @@
                         my $line_text  = $editor->GetTextRange($line_start, $line_end);
                         $line_text = "# ${line_text}";
+                        $editor->SetSelection( $line_start, $line_end );
+                        $editor->ReplaceSelection( $line_text );
                     },
                 };