Changeset 5417

Timestamp:

06/20/09 09:48:51 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Last resort Quick fix for "Comment Error line" is done

File:

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

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

@@ -303 +303 @@
                 Wx::Event::EVT_MENU(
                     $main, 
-                    $menu->Append( -1, Wx::gettext("Comment current error") ),
+                    $menu->Append( -1, Wx::gettext("Comment error line") ),
                     sub {
-                        #XXX-implement comment current error
+                        #comment current error
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        $editor->InsertText($line_start, "#");
                     },
                 );