File Coverage

blib/lib/Padre/Plugin/FormBuilder/FBP.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Padre::Plugin::FormBuilder::FBP;

## no critic

# This module was generated by Padre::Plugin::FormBuilder::Perl.
# To change this module edit the original .fbp file and regenerate.
# DO NOT MODIFY THIS FILE BY HAND!

use 5.008005;
use utf8;
use strict;
use warnings;
use Padre::Wx ();
use Padre::Wx::Role::Main ();
use File::ShareDir ();

our $VERSION = '0.04';
our @ISA     = qw{
	Padre::Wx::Role::Main
	Wx::Dialog
};

sub new {
	my $class  = shift;
	my $parent = shift;

	my $self = $class->SUPER::new(
		$parent,
		-1,
		Wx::gettext("Padre Form Builder"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::DEFAULT_DIALOG_STYLE,
	);

	my $m_bitmap3 = Wx::StaticBitmap->new(
		$self,
		-1,
		Wx::Bitmap->new( File::ShareDir::dist_file( "Padre-Plugin-FormBuilder", "wxfb.png" ), Wx::BITMAP_TYPE_ANY ),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	my $file = Wx::StaticText->new(
		$self,
		-1,
		Wx::gettext("wxFormBuilder Project"),
	);
	$file->SetFont(
		Wx::Font->new( Wx::NORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
	);

	$self->{browse} = Wx::FilePickerCtrl->new(
		$self,
		-1,
		"",
		Wx::gettext("Select a file"),
		"*.fbp",
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::FLP_DEFAULT_STYLE,
	);

	Wx::Event::EVT_FILEPICKER_CHANGED(
		$self,
		$self->{browse},
		sub {
			shift->browse_changed(@_);
		},
	);

	my $line1 = Wx::StaticLine->new(
		$self,
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::LI_HORIZONTAL,
	);

	my $m_bitmap2 = Wx::StaticBitmap->new(
		$self,
		-1,
		Wx::Bitmap->new( File::ShareDir::dist_file( "Padre-Plugin-FormBuilder", "common.png" ), Wx::BITMAP_TYPE_ANY ),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	my $m_staticText3 = Wx::StaticText->new(
		$self,
		-1,
		Wx::gettext("Code Generation Options"),
	);
	$m_staticText3->SetFont(
		Wx::Font->new( Wx::NORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
	);

	my $m_staticText5 = Wx::StaticText->new(
		$self,
		-1,
		Wx::gettext("\$VERSION ="),
	);

	$self->{version} = Wx::TextCtrl->new(
		$self,
		-1,
		"0.01",
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::TE_LEFT,
	);
	$self->{version}->SetMaxLength(10);

	$self->{translate} = Wx::RadioBox->new(
		$self,
		-1,
		Wx::gettext("Internationalisation"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
		[
			"\"None:\"",
			"Wx::gettext(\"Naive:\")",
		],
		1,
		Wx::RA_SPECIFY_COLS,
	);
	$self->{translate}->SetSelection(2);

	$self->{encapsulation} = Wx::RadioBox->new(
		$self,
		-1,
		Wx::gettext("Encapsulation"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
		[
			"Naive Protection",
			"Strict Protection",
		],
		1,
		Wx::RA_SPECIFY_COLS,
	);
	$self->{encapsulation}->SetSelection(0);

	$self->{padre} = Wx::CheckBox->new(
		$self,
		-1,
		Wx::gettext("Generate for use in Padre or a Padre plugin"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	my $m_staticline41 = Wx::StaticLine->new(
		$self,
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::LI_HORIZONTAL,
	);

	my $cancel = Wx::Button->new(
		$self,
		Wx::ID_CANCEL,
		Wx::gettext("Close"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	$self->{m_notebook1} = Wx::Notebook->new(
		$self,
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::NO_BORDER,
	);

	$self->{m_panel1} = Wx::Panel->new(
		$self->{m_notebook1},
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::TAB_TRAVERSAL,
	);

	my $m_bitmap41 = Wx::StaticBitmap->new(
		$self->{m_panel1},
		-1,
		Wx::Bitmap->new( File::ShareDir::dist_file( "Padre-Plugin-FormBuilder", "single.png" ), Wx::BITMAP_TYPE_ANY ),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	my $m_staticText411 = Wx::StaticText->new(
		$self->{m_panel1},
		-1,
		Wx::gettext("Generate Wx Application"),
	);
	$m_staticText411->SetFont(
		Wx::Font->new( Wx::NORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
	);

	$self->{select} = Wx::Choice->new(
		$self->{m_panel1},
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		[],
	);
	$self->{select}->SetSelection(0);
	$self->{select}->Disable;

	$self->{associate} = Wx::CheckBox->new(
		$self->{m_panel1},
		-1,
		Wx::gettext("Associate with current project"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{associate}->SetToolTip(
		Wx::gettext("Generates embedded tracking data in the dialog code")
	);
	$self->{associate}->Disable;

	$self->{preview} = Wx::Button->new(
		$self->{m_panel1},
		-1,
		Wx::gettext("Preview"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{preview}->Disable;

	Wx::Event::EVT_BUTTON(
		$self,
		$self->{preview},
		sub {
			shift->preview_clicked(@_);
		},
	);

	$self->{generate} = Wx::Button->new(
		$self->{m_panel1},
		-1,
		Wx::gettext("Generate"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{generate}->Disable;

	Wx::Event::EVT_BUTTON(
		$self,
		$self->{generate},
		sub {
			shift->generate_clicked(@_);
		},
	);

	$self->{m_panel2} = Wx::Panel->new(
		$self->{m_notebook1},
		-1,
		Wx::DefaultPosition,
		Wx::DefaultSize,
		Wx::TAB_TRAVERSAL,
	);

	my $m_bitmap4 = Wx::StaticBitmap->new(
		$self->{m_panel2},
		-1,
		Wx::Bitmap->new( File::ShareDir::dist_file( "Padre-Plugin-FormBuilder", "single.png" ), Wx::BITMAP_TYPE_ANY ),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);

	my $m_staticText41 = Wx::StaticText->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("Generate Wx Application"),
	);
	$m_staticText41->SetFont(
		Wx::Font->new( Wx::NORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
	);

	$self->{complete_fbp} = Wx::CheckBox->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("All dialog FBP classes"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{complete_fbp}->Disable;

	Wx::Event::EVT_CHECKBOX(
		$self,
		$self->{complete_fbp},
		sub {
			shift->complete_refresh(@_);
		},
	);

	$self->{complete_shim} = Wx::CheckBox->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("All dialog shim subclasses"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{complete_shim}->Disable;

	Wx::Event::EVT_CHECKBOX(
		$self,
		$self->{complete_shim},
		sub {
			shift->complete_refresh(@_);
		},
	);

	$self->{complete_app} = Wx::CheckBox->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("Root Wx::App class"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{complete_app}->Disable;

	Wx::Event::EVT_CHECKBOX(
		$self,
		$self->{complete_app},
		sub {
			shift->complete_refresh(@_);
		},
	);

	$self->{complete_script} = Wx::CheckBox->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("Launch script for app (show first form)"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{complete_script}->Disable;

	Wx::Event::EVT_CHECKBOX(
		$self,
		$self->{complete_script},
		sub {
			shift->complete_refresh(@_);
		},
	);

	$self->{complete} = Wx::Button->new(
		$self->{m_panel2},
		-1,
		Wx::gettext("Generate"),
		Wx::DefaultPosition,
		Wx::DefaultSize,
	);
	$self->{complete}->Disable;

	Wx::Event::EVT_BUTTON(
		$self,
		$self->{complete},
		sub {
			shift->complete_clicked(@_);
		},
	);

	my $bSizer9 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer9->Add( $m_bitmap3, 0, Wx::RIGHT, 5 );
	$bSizer9->Add( $file, 0, Wx::ALIGN_BOTTOM, 5 );

	my $bSizer6 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer6->Add( $self->{browse}, 1, Wx::ALL | Wx::EXPAND, 5 );

	my $bSizer8 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer8->Add( $m_bitmap2, 0, Wx::RIGHT, 5 );
	$bSizer8->Add( $m_staticText3, 0, Wx::ALIGN_BOTTOM, 1 );

	my $bSizer10 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer10->Add( $m_staticText5, 0, Wx::ALIGN_CENTER_VERTICAL | Wx::ALIGN_RIGHT | Wx::BOTTOM | Wx::LEFT | Wx::TOP, 5 );
	$bSizer10->Add( $self->{version}, 0, Wx::ALL, 5 );

	my $bSizer11 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer11->Add( $self->{translate}, 1, Wx::ALL | Wx::EXPAND, 5 );
	$bSizer11->Add( $self->{encapsulation}, 1, Wx::ALL | Wx::EXPAND, 5 );

	my $buttons = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$buttons->Add( $cancel, 0, Wx::ALL, 5 );
	$buttons->Add( 50, 0, 1, Wx::EXPAND, 5 );

	my $sizer2 = Wx::BoxSizer->new(Wx::VERTICAL);
	$sizer2->Add( $bSizer9, 0, Wx::ALL | Wx::EXPAND, 5 );
	$sizer2->Add( $bSizer6, 0, Wx::EXPAND, 5 );
	$sizer2->Add( 0, 5, 0, Wx::EXPAND, 5 );
	$sizer2->Add( $line1, 0, Wx::EXPAND | Wx::LEFT | Wx::RIGHT, 5 );
	$sizer2->Add( $bSizer8, 0, Wx::ALL | Wx::EXPAND, 5 );
	$sizer2->Add( $bSizer10, 0, Wx::EXPAND, 5 );
	$sizer2->Add( $bSizer11, 0, Wx::EXPAND, 5 );
	$sizer2->Add( $self->{padre}, 0, Wx::ALL, 5 );
	$sizer2->Add( 0, 10, 0, Wx::EXPAND, 5 );
	$sizer2->Add( $m_staticline41, 0, Wx::EXPAND | Wx::LEFT | Wx::RIGHT, 5 );
	$sizer2->Add( $buttons, 0, Wx::EXPAND, 5 );

	my $bSizer121 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer121->Add( $m_bitmap41, 0, Wx::ALIGN_CENTER_VERTICAL | Wx::RIGHT, 5 );
	$bSizer121->Add( $m_staticText411, 0, Wx::ALIGN_BOTTOM | Wx::BOTTOM, 1 );

	my $bSizer5 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer5->Add( $self->{select}, 1, Wx::ALIGN_CENTER_VERTICAL | Wx::ALL | Wx::EXPAND, 5 );

	my $bSizer151 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer151->Add( $self->{preview}, 0, Wx::TOP, 0 );
	$bSizer151->Add( 0, 0, 1, Wx::EXPAND, 5 );
	$bSizer151->Add( $self->{generate}, 0, 0, 5 );

	my $bSizer14 = Wx::BoxSizer->new(Wx::VERTICAL);
	$bSizer14->Add( $bSizer121, 0, Wx::EXPAND | Wx::LEFT | Wx::RIGHT, 5 );
	$bSizer14->Add( $bSizer5, 0, Wx::EXPAND, 0 );
	$bSizer14->Add( $self->{associate}, 0, Wx::ALIGN_BOTTOM | Wx::LEFT, 5 );
	$bSizer14->Add( 0, 0, 1, Wx::EXPAND, 5 );
	$bSizer14->Add( $bSizer151, 0, Wx::EXPAND, 0 );

	$self->{m_panel1}->SetSizerAndFit($bSizer14);
	$self->{m_panel1}->Layout;

	my $bSizer12 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$bSizer12->Add( $m_bitmap4, 0, Wx::ALIGN_CENTER_VERTICAL | Wx::RIGHT, 5 );
	$bSizer12->Add( $m_staticText41, 0, Wx::ALIGN_BOTTOM | Wx::BOTTOM, 1 );

	my $bSizer15 = Wx::BoxSizer->new(Wx::VERTICAL);
	$bSizer15->Add( $bSizer12, 0, Wx::EXPAND | Wx::LEFT | Wx::RIGHT, 5 );
	$bSizer15->Add( $self->{complete_fbp}, 0, Wx::ALL, 5 );
	$bSizer15->Add( $self->{complete_shim}, 0, Wx::ALL, 5 );
	$bSizer15->Add( $self->{complete_app}, 0, Wx::ALL, 5 );
	$bSizer15->Add( $self->{complete_script}, 0, Wx::ALL, 5 );
	$bSizer15->Add( 0, 0, 1, Wx::EXPAND, 5 );
	$bSizer15->Add( $self->{complete}, 0, Wx::ALIGN_RIGHT, 0 );

	$self->{m_panel2}->SetSizerAndFit($bSizer15);
	$self->{m_panel2}->Layout;

	$self->{m_notebook1}->AddPage( $self->{m_panel1}, Wx::gettext("Dialog"), 1 );
	$self->{m_notebook1}->AddPage( $self->{m_panel2}, Wx::gettext("Application"), 0 );

	my $sizer1 = Wx::BoxSizer->new(Wx::HORIZONTAL);
	$sizer1->Add( $sizer2, 0, Wx::EXPAND, 5 );
	$sizer1->Add( 0, 0, 0, Wx::EXPAND, 5 );
	$sizer1->Add( $self->{m_notebook1}, 0, Wx::EXPAND, 0 );

	$self->SetSizerAndFit($sizer1);
	$self->Layout;

	return $self;
}

sub browse {
	$_[0]->{browse};
}

sub version {
	$_[0]->{version};
}

sub translate {
	$_[0]->{translate};
}

sub encapsulation {
	$_[0]->{encapsulation};
}

sub padre {
	$_[0]->{padre};
}

sub select {
	$_[0]->{select};
}

sub associate {
	$_[0]->{associate};
}

sub preview {
	$_[0]->{preview};
}

sub generate {
	$_[0]->{generate};
}

sub complete_fbp {
	$_[0]->{complete_fbp};
}

sub complete_shim {
	$_[0]->{complete_shim};
}

sub complete_app {
	$_[0]->{complete_app};
}

sub complete_script {
	$_[0]->{complete_script};
}

sub complete {
	$_[0]->{complete};
}

sub browse_changed {
	$_[0]->main->error('Handler method browse_changed for event browse.OnFileChanged not implemented');
}

sub preview_clicked {
	$_[0]->main->error('Handler method preview_clicked for event preview.OnButtonClick not implemented');
}

sub generate_clicked {
	$_[0]->main->error('Handler method generate_clicked for event generate.OnButtonClick not implemented');
}

sub complete_refresh {
	$_[0]->main->error('Handler method complete_refresh for event complete_fbp.OnCheckBox not implemented');
}

sub complete_clicked {
	$_[0]->main->error('Handler method complete_clicked for event complete.OnButtonClick not implemented');
}

1;

# Copyright 2008-2012 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.