view release on metacpan or  search on metacpan

lib/App/Codit.pm  view on Meta::CPAN

=item B<FileBrowser> see L<App::Codit::Plugins::FileBrowser>

=item B<Git> see L<App::Codit::Plugins::Git>

=item B<Icons> see L<App::Codit::Plugins::Icons>

=item B<PerlSubs> see L<App::Codit::Plugins::PerlSubs>

=item B<PodViewer> see L<App::Codit::Plugins::PodViewer>

=item B<SearchReplace> see L<App::Codit::Plugins::SearchReplace>

=item B<Sessions> see L<App::Codit::Plugins::Sessions>

=item B<Snippets> see L<App::Codit::Plugins::Snippets>

=item B<SpltView> see L<App::Codit::Plugins::SplitView>

=back

=head1 CONFIG VARIABLES

Codit defines one config variable.

=over 4

=item Switch B<-uniqueinstance>

Boolean flag. Default value 0. If set only this instance is used
for opening files through the command line.

=back

=head1 COMMANDS

Codit defines one command.

=over 4

=item Switch B<-report_issue>

Opens the issues web page of the App::Codit github repository.

=back

=head1 METHODS

B<App::Codit> inherits L<Tk::AppWindow> and all of its methods.

=over 4

=cut

sub Populate {
	my ($self,$args) = @_;

	my $rawdir = Tk::findINC('App/Codit/Icons');
	my %opts = (
#		-appname => 'Codit',
		-logo => Tk::findINC('App/Codit/codit_logo.png'),
		-extensions => [qw[Art CoditMDI ToolBar StatusBar MenuBar Selector Help Settings Plugins]],
		-documentinterface => 'CoditMDI',
		-namespace => 'App::Codit',
		-rawiconpath => [ $rawdir ],
		-savegeometry => 1,
		-updatesmenuitem => 1,

		#configure the application layout.
		-panelgeometry => 'grid',
		-panellayout => [
			CENTER => {
				-weight => 1,
				-in => 'MAIN',
				-column => 0,
				-row => 1,
				-sticky => 'nsew',
			},
			SUBCENTER => {
				-in => 'CENTER',
				-weight => 1,
				-column => 2,
				-row => 0,
				-sticky => 'nsew',
			},
			WORK => {
				-in => 'SUBCENTER',
				-weight => 1,
				-column => 0,
				-row => 0,
				-sticky => 'nsew',
			},
			TOOL => {
				-in => 'SUBCENTER',
				-weight => 1,
				-column => 0,
				-row => 2,
				-sticky => 'ew',
				-canhide => 1,
				-adjuster => 'bottom',
			},
			TOP => {
				-weight => 1,
				-in => 'MAIN',
				-column => 0,
				-row => 0,
				-sticky => 'ew',
				-canhide => 1,
			},
			BOTTOM => {
				-in => 'MAIN',
				-column => 0,
				-row => 2,
				-sticky => 'ew',
				-canhide => 1,
			},
			LEFT => {
				-in => 'CENTER',
				-column => 0,
				-row => 0,
				-sticky => 'ns',