Padre::Wx::HtmlWindow - Padre-enhanced version of L<Wx::HtmlWindow>

Padre documentation Contained in the Padre distribution.

Index

Code Index:

NAME

Top

Padre::Wx::HtmlWindow - Padre-enhanced version of Wx::HtmlWindow

DESCRIPTION

Top

Padre::Wx::HtmlWindow provides a Padre-specific subclass of Wx::HtmlWindow that adds some additional features, primarily default support for pod2html functionality.

METHODS

Top

Padre::Wx::HtmlWindow implements all the methods described in the documentation for Wx::HtmlWindow, and adds some additional methods.

load_file

  $html_window->load_file( 'my.pod' );

The load_file method takes a file name, loads the file, transforms it to HTML via the default Padre::Pod2HTML processor, and then loads the HTML into the window.

Returns true on success, or throws an exception on error.

load_file

  $html_window->load_pod( "=head1 NAME\n" );

The load_file method takes a string of POD content, transforms it to HTML via the default Padre::Pod2HTML processor, and then loads the HTML into the window.

Returns true on success, or throws an exception on error.

SUPPORT

Top

See the main Padre documentation.

AUTHOR

Top

Adam Kennedy <adamk@cpan.org>

COPYRIGHT

Top

Copyright 2008-2011 The Padre development team as listed in Padre.pm.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

Padre documentation Contained in the Padre distribution. 
package Padre::Wx::HtmlWindow;


use 5.008;
use strict;
use warnings;
use Padre::Wx ();
use Wx::Html  ();

our $VERSION = '0.86';
our @ISA     = 'Wx::HtmlWindow';





#####################################################################
# Loader Methods


sub load_file {
	my $self = shift;
	my $file = shift;
	my $pod;
	SCOPE: {
		local $/ = undef;
		open( my $fh, '<', $file ) or die "Failed to open file";
		$pod = <$fh>;
		close($fh) or die "Failed to close file";
	}
	return $self->load_pod($pod);
}


sub load_pod {
	my $self = shift;
	require Padre::Pod2HTML;
	$self->SetPage( Padre::Pod2HTML->pod2html( $_[0] ) );
	return 1;
}

1;

__END__


# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.