Extracted the WIDGET and FORM classes out of "cms" component

and build the wsf_html library which also include the previous css lib.

draft/application/cms/src/modules/node/cms_page_content_type.e

@@ -41,11 +41,11 @@ feature -- Factory
 
 	fill_edit_form (f: CMS_FORM; a_node: detachable CMS_NODE)
 		local
-			ti: CMS_FORM_TEXT_INPUT
-			fset: CMS_FORM_FIELD_SET
-			ta: CMS_FORM_TEXTAREA
-			tselect: CMS_FORM_SELECT
-			opt: CMS_FORM_SELECT_OPTION
+			ti: WSF_FORM_TEXT_INPUT
+			fset: WSF_FORM_FIELD_SET
+			ta: WSF_FORM_TEXTAREA
+			tselect: WSF_FORM_SELECT
+			opt: WSF_FORM_SELECT_OPTION
 		do
 			create ti.make ("title")
 			ti.set_label ("Title")
@@ -96,7 +96,7 @@ feature -- Factory
 
 		end
 
-	change_node	(a_execution: CMS_EXECUTION; fd: CMS_FORM_DATA; a_node: like new_node)
+	change_node	(a_execution: CMS_EXECUTION; fd: WSF_FORM_DATA; a_node: like new_node)
 		local
 			b: detachable READABLE_STRING_8
 			f: detachable CMS_FORMAT
@@ -123,7 +123,7 @@ feature -- Factory
 			end
 		end
 
-	new_node (a_execution: CMS_EXECUTION; fd: CMS_FORM_DATA; a_node: detachable like new_node): CMS_PAGE
+	new_node (a_execution: CMS_EXECUTION; fd: WSF_FORM_DATA; a_node: detachable like new_node): CMS_PAGE
 			-- <Precursor>
 		local
 			b: detachable READABLE_STRING_8

draft/application/cms/src/modules/node/node_add_cms_execution.e

@@ -18,7 +18,7 @@ feature -- Execution
 		local
 			b: STRING_8
 			f: like edit_form
-			fd: detachable CMS_FORM_DATA
+			fd: detachable WSF_FORM_DATA
 		do
 			create b.make_empty
 			if attached non_empty_string_path_parameter ("type") as s_type then

draft/application/cms/src/modules/node/node_cms_execution.e

@@ -12,7 +12,7 @@ inherit
 
 feature -- Form	
 
-	edit_form_validate (fd: CMS_FORM_DATA; b: STRING)
+	edit_form_validate (fd: WSF_FORM_DATA; b: STRING)
 		local
 			l_preview: BOOLEAN
 			l_format: detachable CMS_FORMAT
@@ -39,7 +39,7 @@ feature -- Form
 			end
 		end
 
-	edit_form_submit (fd: CMS_FORM_DATA; a_node: detachable CMS_NODE; a_type: CMS_CONTENT_TYPE; b: STRING)
+	edit_form_submit (fd: WSF_FORM_DATA; a_node: detachable CMS_NODE; a_type: CMS_CONTENT_TYPE; b: STRING)
 		local
 			l_preview: BOOLEAN
 			l_node: detachable CMS_NODE
@@ -77,7 +77,7 @@ feature -- Form
 			end
 		end
 
---	edit_form_submit (fd: CMS_FORM_DATA; a_type: CMS_CONTENT_TYPE; b: STRING)
+--	edit_form_submit (fd: WSF_FORM_DATA; a_type: CMS_CONTENT_TYPE; b: STRING)
 --		local
 --			l_preview: BOOLEAN
 --		do
@@ -110,8 +110,8 @@ feature -- Form
 	edit_form (a_node: detachable CMS_NODE; a_url: READABLE_STRING_8; a_name: STRING; a_type: CMS_CONTENT_TYPE): CMS_FORM
 		local
 			f: CMS_FORM
-			ts: CMS_FORM_SUBMIT_INPUT
-			th: CMS_FORM_HIDDEN_INPUT
+			ts: WSF_FORM_SUBMIT_INPUT
+			th: WSF_FORM_HIDDEN_INPUT
 		do
 			create f.make (a_url, a_name)
 

draft/application/cms/src/modules/node/node_edit_cms_execution.e

@@ -18,7 +18,7 @@ feature -- Execution
 		local
 			b: STRING_8
 			f: like edit_form
-			fd: detachable CMS_FORM_DATA
+			fd: detachable WSF_FORM_DATA
 		do
 			create b.make_empty
 			if