Changeset 5418

Timestamp:

06/20/09 10:00:31 (3 years ago)

Author:

azawawi

Message:

[Perl 6] a more complete list of flow control keywords; and insert routine quick fix is now working

File:

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

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

@@ -230 +230 @@
                 
                 my $routine_name = $1;
-                #XXX-add more control keywords
-                my @keywords = ('if','unless','loop','for');
-                foreach my $keyword (@keywords) {
+                #flow control keywords
+                my @flow_control_keywords = (
+                    'for', 'given', 'if', 'loop', 'repeat', 
+                    'unless', 'until', 'when', 'while',
+                );
+                foreach my $keyword (@flow_control_keywords) {
                     if($keyword eq $routine_name) {
                         Wx::Event::EVT_MENU(
                             $main, 
-                            $menu->Append( -1, sprintf( Wx::gettext("Did u mean if (...) { }?"), $keyword) ),
+                            $menu->Append( -1, 
+                                sprintf( 
+                                    Wx::gettext("Insert a space after $keyword?"), 
+                                    $keyword
+                                )),
                             sub { 
                                 #XXX-implement add space before brace
@@ -249 +256 @@
                     $menu->Append( -1, sprintf( Wx::gettext("Insert routine '%s'"), $routine_name) ),
                     sub { 
-                        #XXX-implement insert routine
+                        #Insert an empty routine definition before the current line
+                        my $line_start = $editor->PositionFromLine( $current_line_no );
+                        $editor->InsertText($line_start, 
+                            "sub $routine_name {$new_line\t#XXX-implement$new_line}$new_line");
                     },
                 );