New Control structure

library/server/wsf_html/webcontrol/input/wsf_checkbox_control.e

@@ -18,7 +18,7 @@ feature {NONE}
 
 	make_checkbox (n: STRING; l: STRING; c: STRING)
 		do
-			make (n, "input")
+			make_control (n, "input")
 			label := l
 			checked_value := c
 		end

library/server/wsf_html/webcontrol/input/wsf_checkbox_list_control.e

@@ -31,18 +31,15 @@ feature {NONE}
 feature
 
 	value: LIST [STRING]
-		local
-			l: LINKED_LIST [STRING]
 		do
-			create l.make
+			create {LINKED_LIST [STRING]} Result.make
 			across
 				controls as c
 			loop
 				if c.item.value then
-					l.extend (c.item.checked_value)
+					Result.extend (c.item.checked_value)
 				end
 			end
-			Result := l
 		end
 
 end

library/server/wsf_html/webcontrol/input/wsf_input_control.e

@@ -18,7 +18,7 @@ feature {NONE}
 
 	make_input (n: STRING; v: STRING)
 		do
-			make (n, "input")
+			make_control (n, "input")
 			type := "text"
 			text := v
 		end