File Coverage

blib/lib/HTML/Tested/JavaScript/RichEdit.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

use strict;
use warnings FATAL => 'all';

package HTML::Tested::JavaScript::RichEdit;
use base 'HTML::Tested::Value';
use HTML::Tested::JavaScript;
use HTML::Tested::Value::DropDown;

sub new {
	my ($class, $parent, $name, @more) = @_;
	my $self = $class->SUPER::new($parent, $name, @more);
	my @fonts = map { [ $_, $_ ] } ('Arial', 'Courier', 'Times New Roman'
		, 'Courier New', 'Georgia', 'Trebuchet MS', 'Verdana', 'Serif');
	$parent->ht_add_widget('HTML::Tested::Value::DropDown'
		, "$name\_fontname"
		, default_value => [ [ "", "Font" ], @fonts ]);
	$parent->ht_add_widget('HTML::Tested::Value::DropDown'
		, "$name\_fontsize", default_value => [ [ "", "Size" ]
			, map { [ $_, $_ ] } (1 .. 7) ]);
	return $self;
}

my $_src_data = 'data:application/xhtml+xml,' . __PACKAGE__->encode_value(
	'');
sub render {
	my ($self, $caller, $stash, $id) = @_;
	my $n = $self->name;
	$stash->{$n} = "";
	my $scr = '
<a name="30">30</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		. '/rich_edit.js">' . "\n";

	$scr .= "\nhtre_register_on_load(\"$n\");\n\n"
			unless $caller->ht_get_widget_option($n, "no_onload");
	$stash->{$n . "_script"} = $scr;
}

1;