1N/Asub new {
return bless {},
ref($_[
0]) || $_[
0] }
1N/A# TODO: document these and their meanings... 1N/A# The following was adapted from "tkpod" in the Tk-Pod dist. 1N/A return if fork;
# i.e., parent process returns 1N/A #require Tk::ErrorDialog; 1N/A # Add 'Tk' subdirectories to search path so, e.g., 1N/A # CDE use Font Settings if available 1N/A # xxx dirty but it works. A simple $mw->destroy if $mw->children 1N/A # does not work because Tk::ErrorDialogs could be created. 1N/A # (they are withdrawn after Ok instead of destory'ed I guess) 1N/A # ErrorDialog is withdrawn not deleted :-( 1N/A return if "$_" =~ /^
Tk::
Pod/
# ->isa('Tk::Pod') 1N/A exit if $
self->{
'forky'};
# we were the child! so exit now! 1N/APod::Perldoc::ToTk - let Perldoc use Tk::Pod to render Pod 1N/A perldoc -o tk Some::Modulename & 1N/AThis is a "plug-in" class that allows Perldoc to use 1N/ATk::Pod as a formatter class. 1N/AYou have to have installed Tk::Pod first, or this class won't load. 1N/AL<Tk::Pod>, L<Pod::Perldoc> 1N/ASean M. Burke C<sburke@cpan.org>, with significant portions copied from 1N/AF<tkpod> in the Tk::Pod dist, by Nick Ing-Simmons, Slaven Rezic, et al.