view release on metacpan or  search on metacpan

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

=item Switch B<-contenttabs>

Specify your tab size. See also L<Tk::Text>.

=item Switch B<-contentwrap>

Specify your wrap style. See also L<Tk::Text>.

=item Switch B<-highlight_themefile>

Specify the theme file used for syntax highlighting.

=item Switch B<-showfolds>

Boolean. If you clear it the fold indicators in the L<Tk::CodeText> widget
will be hidden.

=item Switch B<-shownumbers>

Boolean. If you clear it the line number indicators in the L<Tk::CodeText> widget
will be hidden.

=item Switch B<-showstatus>

Boolean. If you clear it the status bar in the L<Tk::CodeText> widget
will be hidden.

=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',