From b073727e50ea2fd52206095250a7a206d6107c3c Mon Sep 17 00:00:00 2001 From: Doug Bell Date: Tue, 17 Aug 2010 16:38:19 -0500 Subject: [PATCH] codearea defaults to 100% width --- lib/WebGUI/Form/Codearea.pm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lib/WebGUI/Form/Codearea.pm b/lib/WebGUI/Form/Codearea.pm index 9102b99fd..76c8ed4f4 100644 --- a/lib/WebGUI/Form/Codearea.pm +++ b/lib/WebGUI/Form/Codearea.pm @@ -73,10 +73,10 @@ sub definition { my $definition = shift || []; push(@{$definition}, { height=>{ - defaultValue=> 450 + defaultValue=> '200px' }, width=>{ - defaultValue=> 550 + defaultValue=> '100%' }, style=>{ defaultValue => undef, @@ -152,8 +152,15 @@ sub toHtml { my ($style, $url, $stow) = $self->session->quick(qw(style url stow)); my $value = encode_entities( $self->fixMacros($self->fixTags($self->fixSpecialCharacters(scalar $self->getOriginalValue))) ); - my $width = $self->get('width') || 400; - my $height = $self->get('height') || 150; + my $width = $self->get('width'); + if ( $width !~ /%|px/ ) { + $width .= 'px'; + } + my $height = $self->get('height'); + if ( $height !~ /%|px/ ) { + $height .= 'px'; + } + my $id = $self->get('id'); my $name = $self->get('name'); my $extras = $self->get('extras'); @@ -178,7 +185,7 @@ sub toHtml {