New Control structure

library/server/wsf_html/webcontrol/wsf_stateless_multi_control.e

@@ -0,0 +1,50 @@
+note
+	description: "Summary description for {WSF_STATELESS_MULTI_CONTROL}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_STATELESS_MULTI_CONTROL [G -> WSF_STATELESS_CONTROL]
+
+inherit
+
+	WSF_STATELESS_CONTROL
+
+create
+	make_multi_control, make_with_tag_name
+
+feature {NONE} -- Initialization
+
+	make_multi_control
+		do
+			make_with_tag_name ("div")
+		end
+
+	make_with_tag_name (t: STRING)
+		do
+			make (t)
+			controls := create {LINKED_LIST [G]}.make;
+		end
+
+feature
+
+	render: STRING
+		do
+			Result := ""
+			across
+				controls as c
+			loop
+				Result := c.item.render + Result
+			end
+			Result := render_tag (Result, "")
+		end
+
+	add_control (c: G)
+		do
+			controls.put_front (c)
+		end
+
+	controls: LINKED_LIST [G]
+
+end