Changeset 5380

Timestamp:

06/19/09 22:27:46 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Removed the excessive use of menu separators and organizing the menu a bit.

File:

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

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

@@ -136 +136 @@
     );
 
-    $self->{menu}->AppendSeparator;
-    
-    # Perl6 S29 documentation
-    Wx::Event::EVT_MENU(
-        $main,
-        $self->{menu}->Append( -1, Wx::gettext("Show Perl 6 Help\tF2"), ),
-        sub { $self->show_perl6_doc; },
-    );
-
-    $self->{menu}->AppendSeparator;
-
     # Toggle Auto Perl6 syntax highlighting
     $self->{p6_highlight} =
@@ -157 +146 @@
     $self->{p6_highlight}->Check($config->{p6_highlight} ? 1 : 0);
 
-    $self->{menu}->AppendSeparator;
-
     # Export into HTML
     my $export_menu = Wx::Menu->new();
@@ -182 +169 @@
     );
 
-    $self->{menu}->AppendSeparator;
-
     # Generate Perl 6 Executable
     Wx::Event::EVT_MENU(
@@ -198 +183 @@
     );
     
-    $self->{menu}->AppendSeparator;
-
     # Cleanup STD.pm lex cache
     Wx::Event::EVT_MENU(
@@ -207 +190 @@
     );
 
-    $self->{menu}->AppendSeparator;
+    # Perl6 S29 documentation
+    Wx::Event::EVT_MENU(
+        $main,
+        $self->{menu}->Append( -1, Wx::gettext("Show Perl 6 Help\tF2"), ),
+        sub { $self->show_perl6_doc; },
+    );
 
     # Preferences
@@ -215 +203 @@
         sub { $self->show_preferences; },
     );
-
-    $self->{menu}->AppendSeparator;
 
     # the famous about menu item...