Changeset 5383

Timestamp:

06/19/09 23:09:48 (3 years ago)

Author:

azawawi

Message:

[Perl 6] re-factored the menu; the concept of export/generate sub menu.

File:

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

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

@@ -136 +136 @@
     );
 
+    # Export sub menu
+    my $export_menu = Wx::Menu->new();
+    Wx::Event::EVT_MENU(
+        $main,
+        $self->{menu}->Append( -1, Wx::gettext("Export..."), $export_menu),
+        sub { $self->export_html($FULL_HTML); },
+    );
+    # Generate Perl 6 Executable
+    Wx::Event::EVT_MENU(
+        $main,
+        $export_menu->Append( -1, Wx::gettext("Perl 6 Executable"), ),
+        sub { $self->generate_p6_exe; },
+    );
+
+    # Generate Perl 6 PIR
+    Wx::Event::EVT_MENU(
+        $main,
+        $export_menu->Append( -1, Wx::gettext("Perl 6 PIR"), ),
+        sub { $self->generate_p6_pir; },
+    );
+    
     # Export into HTML
-    my $export_menu = Wx::Menu->new();
-    Wx::Event::EVT_MENU(
-        $main,
-        $self->{menu}->Append( -1, Wx::gettext("Export into HTML..."), $export_menu),
+    Wx::Event::EVT_MENU(
+        $main,
+        $export_menu->Append( -1, Wx::gettext("Full html"), ),
         sub { $self->export_html($FULL_HTML); },
     );
     Wx::Event::EVT_MENU(
         $main,
-        $export_menu->Append( -1, Wx::gettext("Full"), ),
-        sub { $self->export_html($FULL_HTML); },
-    );
-    Wx::Event::EVT_MENU(
-        $main,
-        $export_menu->Append( -1, Wx::gettext("Simple"), ),
+        $export_menu->Append( -1, Wx::gettext("Simple html"), ),
         sub { $self->export_html($SIMPLE_HTML); },
     );
     Wx::Event::EVT_MENU(
         $main,
-        $export_menu->Append( -1, Wx::gettext("Snippet"), ),
+        $export_menu->Append( -1, Wx::gettext("Snippet html"), ),
         sub { $self->export_html($SNIPPET_HTML); },
     );
 
-    # Generate Perl 6 Executable
-    Wx::Event::EVT_MENU(
-        $main,
-        $self->{menu}->Append( -1, Wx::gettext("Generate Perl 6 Executable"), ),
-        sub { $self->generate_p6_exe; },
-    );
-
-    # Generate Perl 6 PIR
-    Wx::Event::EVT_MENU(
-        $main,
-        $self->{menu}->Append( -1, Wx::gettext("Generate Perl 6 PIR"), ),
-        sub { $self->generate_p6_pir; },
-    );
-    
+    # Perl6 S29 documentation
+    Wx::Event::EVT_MENU(
+        $main,
+        $self->{menu}->Append( -1, Wx::gettext("Show Perl 6 Help\tF2"), ),
+        sub { $self->show_perl6_doc; },
+    );
+
     # Cleanup STD.pm lex cache
     Wx::Event::EVT_MENU(
@@ -178 +186 @@
         $self->{menu}->Append( -1, Wx::gettext("Cleanup STD.pm Lex Cache"), ),
         sub { $self->cleanup_std_lex_cache; },
-    );
-
-    # Perl6 S29 documentation
-    Wx::Event::EVT_MENU(
-        $main,
-        $self->{menu}->Append( -1, Wx::gettext("Show Perl 6 Help\tF2"), ),
-        sub { $self->show_perl6_doc; },
     );