From 2e7e62fa1e4ea6f9d3632b40714cea584879ae70 Mon Sep 17 00:00:00 2001
From: Wouter van Oijen <wouter@webgui-svn>
Date: Sat, 22 Jul 2006 11:17:26 +0000
Subject: [PATCH] fix: Data Form Text Area Box Non-Existent

---
 docs/changelog/7.x.x.txt    | 1 +
 lib/WebGUI/Form/Textarea.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 356e3e83f..739254602 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -16,6 +16,7 @@
  - fix: navigation (Wouter van Oijen / ProcoliX)
  - Fixed typo in template variable project.gantt.rowspan and documentation
  - fix: Events Calendar Double Date (Wouter van Oijen / ProcoliX)
+ - fix: Data Form Text Area Box Non-Existent (Wouter van Oijen / ProcoliX)
 
 
 7.0.2
diff --git a/lib/WebGUI/Form/Textarea.pm b/lib/WebGUI/Form/Textarea.pm
index a6dde4f04..91620cc38 100644
--- a/lib/WebGUI/Form/Textarea.pm
+++ b/lib/WebGUI/Form/Textarea.pm
@@ -113,7 +113,9 @@ sub toHtml {
 		$resize = '<img src="'.$self->session->icon->getBaseURL().'/drag.gif" title="'.$i18n->get("drag to resize").'" alt="'.$i18n->get("drag to resize").'" class="draggable" onmousedown="tar_drag_start(event, \''.$self->get('id').'\');" />';
 	}
  	my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters($self->get("value"))));
-	my $style = "width: ".$self->get('width')."px; height: ".$self->get('height')."px; ".$self->get("style");
+	my $width = $self->get('width') || 400;
+	my $height = $self->get('height') || 150;
+	my $style = "width: ".$width."px; height: ".$height."px; ".$self->get("style");
 	return '<textarea id="'.$self->get('id').'" name="'.$self->get("name").'" style="'.$style.'" '.$self->get("extras").'>'.$value.'</textarea>'.$resize;
 }