Commit 1bf58ddd authored by Benoît Minisini's avatar Benoît Minisini

WebTextArea: The Text property works correctly again.

[GB.WEB.FORM]
* BUG: WebTextArea: The Text property works correctly again.
parent 5318c1db
[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
......
# 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
......
......@@ -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
......@@ -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")
}
}
}
......@@ -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); "\"";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment