view release on metacpan or  search on metacpan

lib/App/Codit/Commands.pod  view on Meta::CPAN

If no parameter is specified a file dialog is issued.
Returns a boolean for succes or failure.

=item B<doc_remove_trailing> in L<App::Codit::Ext::CoditMDI>

Removes spaces at the end of each line.

If a selection exists it will do this for the selection, otherwise it
will scan the whole document.

=item B<doc_rename> in L<Tk::AppWindow::Ext::MDI>

Takes two document names as parameters and renames the first one to
the second one in the interface.

=item B<doc_replace> in L<App::Codit::Ext::CoditMDI>

Pops up the search and replace bar in the currently selected document.

=item B<doc_save> in L<Tk::AppWindow::Ext::MDI>

Takes a document name as parameter and saves it if it is modified.
If no parameter is specified the current selected document is saved.
Returns a boolean for succes or failure.

=item B<doc_save_all> in L<Tk::AppWindow::Ext::MDI>

Saves all open and modified documents.
Returns a boolean for succes or failure.

=item B<doc_save_as> in L<Tk::AppWindow::Ext::MDI>

Takes a document name as parameter and issues a file dialog to rename it.
If no parameter is specified the current selected document is initiated in the dialog.
Returns a boolean for succes or failure.

=item B<doc_select> in L<Tk::AppWindow::Ext::MDI>

Select an opened document.

=item B<doc_wrap> in L<App::Codit::Ext::CoditMDI>

Sets and returns the wrap option of the currently selected document.

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

	my $class = shift;
	my $self = $class->SUPER::new(@_);
	return undef unless defined $self;
	
	$self->interval(1000);
	$self->{MODIFIED} = {};
	$self->{ACTIVE} = {};
	
	$self->cmdHookBefore('deferred_open', 'openDocBefore', $self);
	$self->cmdHookAfter('doc_close', 'closeDocAfter', $self);
	$self->cmdHookBefore('doc_rename', 'docRenameBefore', $self);
	$self->cmdHookAfter('doc_save', 'saveDocAfter', $self);

	$self->backupFolder;
	return $self;
}

sub backupCheck {
	my ($self, $name) = @_;
	croak 'Name not defined' unless defined $name;
	my $mdi = $self->extGet('CoditMDI');

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

sub Quit {
	my $self = shift;
	for ($self->jobList) { $self->jobEnd($_) }
}

sub Unload {
	my $self = shift;
	$self->cmdUnhookBefore('deferred_open', 'openDocBefore', $self);
	$self->cmdUnhookAfter('doc_close', 'closeDocAfter', $self);
	$self->cmdUnhookBefore('doc_rename', 'docRenameBefore', $self);
	$self->cmdUnhookAfter('doc_save', 'saveDocAfter', $self);
	return $self->SUPER::Unload;
}

=head1 LICENSE

Same as Perl.

=head1 AUTHOR