Changeset 2183

Timestamp:

12/23/08 10:31:13 (3 years ago)

Author:

tsee

Message:

refresh plugin menu after enabling/disabling plugins

Location:

trunk/Padre/lib/Padre

Files:

• PluginManager.pm (modified) (1 diff)
• Wx/Menu/Plugins.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/PluginManager.pm

@@ -630 +630 @@
 }
 
-# recreate the Plugins menu
-### TODO - Reimplement this in Padre::Wx::Menu::Plugins
+# refresh the Plugins menu
 sub _refresh_plugin_menu {
     my $self = shift;
-    my $main = $self->parent->wx->main_window;
-
-    # Regenerate the menu
-    my $menu    = $main->menu;
-    my $submenu = Padre::Wx::Menu::Plugins->new($main);
-    my $place   = $menu->{wx}->FindMenu( Wx::gettext("Pl&ugins") );
-
-    # Update the menu
-    $menu->{wx}->Replace( $place, $submenu->wx, Wx::gettext("Pl&ugins") );
-    $menu->refresh;
+    
+        $self->parent->wx->main_window->menu->plugins->refresh;
 }
 

trunk/Padre/lib/Padre/Wx/Menu/Plugins.pm

@@ -98 +98 @@
     $self->Append( -1, Wx::gettext('Plugin Tools'), $tools );
 
+    $self->add_plugin_specific_entries();
+
+    return $self;
+}
+
+sub add_plugin_specific_entries {
+    my $self = shift;
+    
     # Get the list of plugins
     my $manager = Padre->ide->plugin_manager;
     my $plugins = $manager->plugins;
     my @plugins = grep { $_ ne 'My' } sort keys %$plugins;
+
+    my $entries = $self->{plugin_menus} || [];
+    $self->remove_plugin_specific_entries() if @$entries;
 
     # Add the enabled plugins that want a menu
@@ -110 +121 @@
         next unless $plugins->{$name}->{status} eq 'enabled';
 
-        my @menu = $manager->get_menu( $main, $name );
+        my @menu = $manager->get_menu( Padre->ide->wx->main_window, $name );
         next unless @menu;
 
         if ( $need_seperator ) {
-            $self->AppendSeparator;
+            push @$entries, $self->AppendSeparator;
             $need_seperator = 0;
         }
 
-        $self->Append( -1, @menu );
+        push @$entries, $self->Append( -1, @menu );
         if ( $name eq 'My' ) {
             $need_seperator = 1;
         }
     }
+    
+    $self->{plugin_menus} = $entries;
+    
+    return 1;
+}
 
-    return $self;
+sub remove_plugin_specific_entries {
+    my $self = shift;
+    my $entries = $self->{plugin_menus} || [];
+    
+    while (@$entries) {
+        $self->Destroy(pop @$entries);
+    }
+    $self->{plugin_menus} = $entries;
+    return 1;
+}
+
+sub refresh {
+    my $self    = shift;
+
+    $self->remove_plugin_specific_entries();
+    $self->add_plugin_specific_entries();
+
+    return 1;
 }