Began with implementation of form handling

library/server/wsf_html/webcontrol/wsf_text_control.e

@@ -11,6 +11,8 @@ inherit
 
 	WSF_CONTROL
 
+	WSF_VALUE_CONTROL [STRING]
+
 create
 	make_text
 
@@ -57,11 +59,11 @@ feature --EVENT HANDLING
 			end
 		end
 
-feature
+feature -- Implementation
 
 	render: STRING
 		do
-			Result := "<input type=%"text%" data-name=%"" + control_name + "%" data-type=%"WSF_TEXT_CONTROL%" value=%"" + text + "%" />"
+			Result := render_tag ("", "value=%"" + text + "%"")
 		end
 
 	set_text (t: STRING)
@@ -72,6 +74,11 @@ feature
 			end
 		end
 
+	value: STRING
+		do
+			Result := text
+		end
+
 feature
 
 	text: STRING