Moved library/src to src

src/kernel/form/cms_form.e

@@ -0,0 +1,42 @@
+note
+	description: "Summary description for {CMS_FORM}."
+	date: "$Date: 2014-11-13 16:23:47 +0100 (jeu., 13 nov. 2014) $"
+	revision: "$Revision: 96085 $"
+
+class
+	CMS_FORM
+
+inherit
+	WSF_FORM
+		rename
+			process as process_form
+		end
+
+create
+	make
+
+feature -- Basic operation
+
+	prepare (a_response: CMS_RESPONSE)
+		do
+			a_response.invoke_form_alter (Current, Void)
+		end
+
+	process (a_response: CMS_RESPONSE)
+		do
+			process_form (a_response.request, agent on_prepared (a_response, ?), agent on_processed (a_response, ?))
+		end
+
+	on_prepared (a_response: CMS_RESPONSE; fd: WSF_FORM_DATA)
+		do
+			a_response.invoke_form_alter (Current, fd)
+		end
+
+	on_processed (a_response: CMS_RESPONSE; fd: WSF_FORM_DATA)
+		do
+			if not fd.is_valid or fd.has_error then
+				a_response.report_form_errors (fd)
+			end
+		end
+
+end