Add set value to value controls

draft/library/wsf_js_widget/kernel/webcontrol/wsf_form_element_control.e

@@ -71,6 +71,11 @@ feature -- Access
 			Result := value_control.value
 		end
 
+	set_value (v: G)
+		do
+			value_control.set_value (v)
+		end
+
 feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- State management
 
 	load_state (new_states: JSON_OBJECT)

draft/library/wsf_js_widget/kernel/webcontrol/wsf_html_control.e

@@ -10,7 +10,9 @@ class
 inherit
 
 	WSF_VALUE_CONTROL [STRING]
-	rename make as make_value_control end
+		rename
+			make as make_value_control
+		end
 
 create
 	make
@@ -20,7 +22,7 @@ feature {NONE} -- Initialization
 	make (t, v: STRING)
 			-- Initialize
 		do
-			make_value_control ( t)
+			make_value_control (t)
 			html := v
 		end
 
@@ -43,7 +45,7 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- State management
 
 feature --Event handling
 
-	handle_callback (cname: LIST[STRING]; event: STRING; event_parameter: detachable ANY)
+	handle_callback (cname: LIST [STRING]; event: STRING; event_parameter: detachable ANY)
 		do
 		end
 
@@ -68,6 +70,11 @@ feature -- Implementation
 			Result := html
 		end
 
+	set_value (v: STRING)
+		do
+			html := v
+		end
+
 feature -- Properties
 
 	html: STRING

draft/library/wsf_js_widget/kernel/webcontrol/wsf_value_control.e

@@ -18,4 +18,8 @@ feature -- Access
 		deferred
 		end
 
+	set_value (v: G)
+		deferred
+		end
+
 end