Added generalized input control similiar to text

examples/widgetapp/widget.coffee

@@ -54,7 +54,7 @@ class WSF_TEXT_CONTROL extends WSF_CONTROL
       window.states[@control_name]['text'] = state.text
       @$el.val(state.text)
 
-#map class name to effectiv class
+#map class name to effective class
 typemap =
   "WSF_BUTTON_CONTROL":WSF_BUTTON_CONTROL
   "WSF_TEXT_CONTROL":WSF_TEXT_CONTROL

library/server/wsf_html/webcontrol/wsf_button_control.e

@@ -16,10 +16,10 @@ create
 
 feature {NONE}
 
-	make_button (n: STRING; v: STRING)
+	make_button (n: STRING; t: STRING)
 		do
 			make (n)
-			text := v
+			text := t
 		end
 
 feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT

library/server/wsf_html/webcontrol/wsf_multi_control.e

@@ -30,6 +30,13 @@ feature {NONE}
 			controls := create {LINKED_LIST [WSF_CONTROL]}.make;
 		end
 
+	make_with_controls (n: STRING; c: LINKED_LIST [WSF_CONTROL])
+		do
+			control_name := n
+			controls := c
+			create state_changes.make
+		end
+
 feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
 
 	load_state (new_states: JSON_OBJECT)
@@ -45,6 +52,11 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
 
 	set_state (new_state: JSON_OBJECT)
 		do
+			across
+				controls as c
+			loop
+				c.item.set_state (new_state)
+			end
 		end
 
 	read_state (states: JSON_OBJECT)