Changeset 5409

Timestamp:

06/20/09 05:49:14 (3 years ago)

Author:

azawawi

Message:

[Perl 6] provide a smart quick fix for if(), unless()... in undeclared routine if()

File:

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

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

@@ -217 +217 @@
                 
                 my $routine_name = $1;
+                #XXX-add more control keywords
+                my @keywords = ('if','unless','loop','for');
+                foreach my $keyword (@keywords) {
+                    if($keyword eq $routine_name) {
+                        Wx::Event::EVT_MENU(
+                            $main, 
+                            $menu->Append( -1, sprintf( Wx::gettext("Did u mean if (...) { }?"), $keyword) ),
+                            sub { 
+                                #XXX-implement add space before brace
+                            },
+                        );
+                        
+                        last;
+                    }
+                }
                 Wx::Event::EVT_MENU(
                     $main, 
-                    $menu->Append( -1, sprintf( Wx::gettext("Insert sub '%s'"), $routine_name) ),
+                    $menu->Append( -1, sprintf( Wx::gettext("Insert routine '%s'"), $routine_name) ),
                     sub { 
                         #XXX-implement insert routine