view release on metacpan or  search on metacpan

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

}

=item B<ToolRightPageRemove>I<($page)>

See also the B<pageDelete> method in L<Tk::AppWindow::Ext::SideBars>.
Removes page $name from the tool panel at the right of the application window.
Removes the notebook widget if it holds no more entries.

=cut

sub ToolRightPageRemove {
	my ($self, $page) = @_;
	my $sb = $self->sidebars;
	$self->sidebars->pageDelete('tool panel right', $page);
	$self->ToolRightBookRemove unless $sb->pageCount('tool panel right');
}

sub uniqueinstance {
	my $self = shift;
	if (@_) {
		my $val = shift;
		my $file = $self->configGet('-configfolder') . '/lockfile';
		my $daem = $self->extGet('Daemons');
		my $job = 'codit_lock_scan';
		if ($val) {
			$self->after(100, sub {
				$self->lockReset;
				$daem->jobAdd($job, 100, 'lockScan', $self) unless $daem->jobExists($job)
			});
		} else {
			unlink $file;
			$daem->jobRemove($job) if $daem->jobExists($job);
		}
		$self->{UNIQUE} = $val;
	}
	return $self->{UNIQUE}
}

=back

=head1 LICENSE

Same as Perl.

=head1 AUTHOR

Hans Jeuken (hanje at cpan dot org)

=head1 BUGS AND CAVEATS

If you find any bugs, please report them here L<https://github.com/haje61/App-Codit/issues>.

=head1 SEE ALSO

=over 4

=item L<Tk::AppWindow>

=item L<Tk::AppWindow::OverView>

=item L<Tk::AppWindow::CookBook>

=item L<Tk::AppWindow::Ext::MDI>

=item L<Tk::AppWindow::Ext::Plugins>

=item L<App::Codit::Ext::CoditMDI>

=item L<App::Codit::Commands>

=item L<App::Codit::ConfigVariables>

=back

=cut

1;