Rename validators, Make forms resizable

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

@@ -9,23 +9,41 @@ class
 
 inherit
 
-	WSF_STATELESS_MULTI_CONTROL [WSF_CONTROL]
+	WSF_STATELESS_MULTI_CONTROL [WSF_STATELESS_CONTROL]
 		rename
 			make as make_multi_control
+		redefine
+			add_control
 		end
 
 	WSF_VALIDATABLE
 
 create
-	make
+	make, make_with_label_width
 
 feature {NONE} -- Initialization
 
 	make
 			-- Initialize
+		do
+			make_with_label_width (2)
+		end
+
+	make_with_label_width (w: INTEGER)
 		do
 			make_multi_control
 			tag_name := "form"
+			label_width := w
+		end
+
+feature
+
+	add_control (c: WSF_STATELESS_CONTROL)
+		do
+			Precursor (c)
+			if attached {WSF_FORM_ELEMENT_CONTROL[ANY]} c as fec then
+				fec.set_label_width (label_width)
+			end
 		end
 
 feature -- Validation
@@ -49,4 +67,8 @@ feature -- Validation
 	is_valid: BOOLEAN
 			-- Tells whether the last validation was valid
 
+feature
+
+	label_width: INTEGER
+
 end

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

@@ -48,6 +48,13 @@ feature {NONE} -- Initialization
 			error := ""
 		end
 
+feature
+
+	set_label_width (w: INTEGER)
+		do
+			label_width := w
+		end
+
 feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- State management
 
 	load_state (new_states: JSON_OBJECT)
@@ -138,9 +145,9 @@ feature -- Implementation
 		do
 			body := ""
 			if not label.is_empty then
-				body.append ("<label class=%"col-lg-2 control-label%" for=%"" + value_control.control_name + "%">" + label + "</label>")
+				body.append ("<label class=%"col-lg-"+label_width.out+" control-label%" for=%"" + value_control.control_name + "%">" + label + "</label>")
 			end
-			body.append ("<div class=%"col-lg-10%">")
+			body.append ("<div class=%"col-lg-"+(12-label_width).out+"%">")
 			body.append (value_control.render)
 			body.append ("</div>")
 			Result := render_tag (body, "")
@@ -200,4 +207,6 @@ feature -- Properties
 	error: STRING
 			-- The error message that is displayed when client side validation fails
 
+	label_width: INTEGER
+
 end