Changeset 519

Timestamp:

10/26/08 13:25:02 (3 years ago)

Author:

adamk

Message:

Automatically show or hide the Perl menu based on the document type

File:

• trunk/lib/Padre/Wx/Menu.pm (modified) (3 diffs)

trunk/lib/Padre/Wx/Menu.pm

@@ -558 +558 @@
 
     # Create the new menu bar
-return;
+    # return;
     $self->{wx} = Wx::MenuBar->new;
     $self->{wx}->Append( $self->{file},     "&File"      );
@@ -568 +568 @@
     }
     $self->{wx}->Append( $self->{bookmark}, "&Bookmarks" );
-    if ( $self->{plugins} ) {
-        $self->{wx}->Append( $self->{plugin}, "Pl&ugins" );
-    }
+    $self->{wx}->Append( $self->{plugin},   "Pl&ugins"   ) if $self->{plugin};
     $self->{wx}->Append( $self->{window},   "&Window"    );
     $self->{wx}->Append( $self->{help},     "&Help"      );
@@ -576 +574 @@
         $self->{wx}->Append( $self->{experimental}, "E&xperimental" );
     }
+    $self->win->SetMenuBar( $self->{wx} );
 
     return 1;