Changes between Version 45 and Version 46 of PadrePluginCookbookRecipie05


Ignore:
Timestamp:
Mar 15, 2012, 2:12:02 PM (3 years ago)
Author:
bowtie
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • PadrePluginCookbookRecipie05

    v45 v46  
    9898 
    9999        # Default, required 
    100         'Padre::Plugin'         => '0.92', 
     100        'Padre::Plugin'         => '0.94', 
    101101 
    102102        # used by Main, About and by Padre::Plugin::FormBuilder 
    103         'Padre::Wx'             => '0.92', 
    104         'Padre::Wx::Main'       => '0.92', 
    105         'Padre::Wx::Role::Main' => '0.92', 
    106         'Padre::DB'             => '0.92', 
    107         'Padre::Logger'         => '0.92', 
     103        'Padre::Wx'             => '0.94', 
     104        'Padre::Wx::Main'       => '0.94', 
     105        'Padre::Wx::Role::Main' => '0.94', 
     106        'Padre::DB'             => '0.94', 
     107        'Padre::Logger'         => '0.94', 
    108108    ); 
    109109} 
     
    258258 
    259259{{{#!perl 
    260 sub plugin_disable { 
    261     my $self = shift; 
    262  
    263     # Close the dialog if it is hanging around 
    264     $self->clean_dialog; 
    265  
    266     # Unload all our child classes 
    267     $self->unload( 
    268         qw{ 
     260# Child modules we need to unload when disabled 
     261use constant CHILDREN => qw{ 
    269262            Padre::Plugin::Cookbook::Recipe01::Main 
    270263            Padre::Plugin::Cookbook::Recipe01::FBP::MainFB 
     
    279272            Padre::Plugin::Cookbook::Recipe04::About 
    280273            Padre::Plugin::Cookbook::Recipe04::FBP::AboutFB 
     274    }; 
     275 
     276sub plugin_disable { 
     277    my $self = shift; 
     278 
     279    # Close the dialog if it is hanging around 
     280    $self->clean_dialog; 
     281 
     282    # Unload all our child classes 
     283        for my $package (CHILDREN) { 
     284                require Padre::Unload; 
     285                Padre::Unload->unload($package); 
    281286        } 
    282     ); 
    283287    
    284288    $self->SUPER::plugin_disable(@_);