File Coverage

blib/lib/Padre/Plugin/WxWidgets.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Padre::Plugin::WxWidgets;

use warnings;
use strict;

our $VERSION = '0.05';

use base 'Padre::Plugin';

use Padre::Wx ();

#######
# Define Plugin Name required
#######
sub plugin_name {
	return Wx::gettext('wxWidgets Support');
}

sub padre_interfaces {
	'Padre::Plugin' => '0.91',;
}

sub menu_plugins_simple {
	my $self = shift;

	return (
		Wx::gettext('wxWidgets Support') => [
			Wx::gettext('About'), sub { $self->show_about },
		]
	);
}

sub show_about {
	my $about = Wx::AboutDialogInfo->new;
	$about->SetName("Padre::Plugin::WxWidgets");
	$about->SetDescription( Wx::gettext('wxWidgets support for Padre') );
	$about->SetVersion($Padre::Plugin::WxWidgets::VERSION);
	Wx::AboutBox($about);
	return;
}


1;
__END__