From 1bf58ddd3507d614b6c78809d9a17cef9398a34d Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Thu, 14 Feb 2019 18:08:31 +0100
Subject: [PATCH] WebTextArea: The Text property works correctly again.

[GB.WEB.FORM]
* BUG: WebTextArea: The Text property works correctly again.
---
 comp/src/gb.web.form/.component                 | 2 +-
 comp/src/gb.web.form/.project                   | 2 +-
 comp/src/gb.web.form/.src/Test/Webform6.class   | 6 ++++++
 comp/src/gb.web.form/.src/Test/Webform6.webform | 9 +++++++--
 comp/src/gb.web.form/.src/WebTextArea.class     | 1 +
 5 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/comp/src/gb.web.form/.component b/comp/src/gb.web.form/.component
index 7f4775cc4..adb610299 100644
--- a/comp/src/gb.web.form/.component
+++ b/comp/src/gb.web.form/.component
@@ -1,6 +1,6 @@
 [Component]
 Key=gb.web.form
-Version=3.12.0
+Version=3.12.90
 State=1
 Authors=Benoît Minisini
 Requires=gb.web,gb.util.web,gb.util
diff --git a/comp/src/gb.web.form/.project b/comp/src/gb.web.form/.project
index 7d7c77554..d3829ce74 100644
--- a/comp/src/gb.web.form/.project
+++ b/comp/src/gb.web.form/.project
@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 Startup=Webform6
 UseHttpServer=1
-Version=3.12.0
+Version=3.12.90
 VersionFile=1
 Component=gb.util
 Component=gb.util.web
diff --git a/comp/src/gb.web.form/.src/Test/Webform6.class b/comp/src/gb.web.form/.src/Test/Webform6.class
index 76b3cc4a1..0d4a779be 100644
--- a/comp/src/gb.web.form/.src/Test/Webform6.class
+++ b/comp/src/gb.web.form/.src/Test/Webform6.class
@@ -12,3 +12,9 @@ Public Sub WebComboBox1_Click()
   Message(WebComboBox1.Text)
 
 End
+
+Public Sub WebButton2_Click()
+
+  Message(Html("TextBox: " & WebTextBox1.Text) & "<p>" & Html("TextArea: " & WebTextArea1.Text))
+
+End
diff --git a/comp/src/gb.web.form/.src/Test/Webform6.webform b/comp/src/gb.web.form/.src/Test/Webform6.webform
index 055534f70..1156f563a 100644
--- a/comp/src/gb.web.form/.src/Test/Webform6.webform
+++ b/comp/src/gb.web.form/.src/Test/Webform6.webform
@@ -16,10 +16,15 @@
     #MoveScaled(1,11,72,16)
   }
   { WebHBox1 WebHBox
-    #MoveScaled(1,28,72,5)
+    #MoveScaled(1,28,72,7)
+    Spacing = True
     { WebButton1 WebButton
-      #MoveScaled(1,1,16,3)
+      #MoveScaled(1,1,16,5)
       Text = ("Copy")
     }
+    { WebButton2 WebButton
+      #MoveScaled(18,1,16,5)
+      Text = ("Text")
+    }
   }
 }
diff --git a/comp/src/gb.web.form/.src/WebTextArea.class b/comp/src/gb.web.form/.src/WebTextArea.class
index 078b4dc6a..56ef41199 100644
--- a/comp/src/gb.web.form/.src/WebTextArea.class
+++ b/comp/src/gb.web.form/.src/WebTextArea.class
@@ -61,6 +61,7 @@ Public Sub _BeforeRender()
   
   Print "<textarea"; Me._GetClassId(); " autocomplete=\"off\""; 
   If Object.CanRaise(Me, "Change") Then Print " oninput=\"gw.textarea.onchange("; JS(Me.Name); ");\"";
+  Print Me._GetUpdateJS("onblur", "text", "this.value");
   If Not Me.Enabled Then Print " disabled";
   If $bReadOnly Then Print " readonly";
   If $sPlaceHolder Then Print " placeholder=\""; Html($sPlaceHolder); "\"";