Adapted rendering of multi control

This commit is contained in:
Severin Münger
2013-09-05 15:12:22 +02:00
parent c50a46206d
commit 422b73058c
2 changed files with 9 additions and 7 deletions

View File

@@ -13,11 +13,11 @@ feature
tag_name: STRING tag_name: STRING
css_class: LINKED_LIST[STRING] css_class: LINKED_LIST [STRING]
feature {NONE} feature {NONE}
make (n,a_tag_name: STRING) make (n, a_tag_name: STRING)
do do
control_name := n control_name := n
tag_name := a_tag_name tag_name := a_tag_name
@@ -72,13 +72,14 @@ feature --EVENT HANDLING
end end
feature feature
render_tag(body,attributes:STRING):STRING
render_tag (body, attributes: STRING): STRING
do do
Result:="<"+tag_name+" data-name=%"" + control_name + "%" data-type=%""+generator+"%" "+attributes Result := "<" + tag_name + " data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + attributes
if not body.is_empty then if not body.is_empty then
Result:= Result + " />" Result := Result + " />"
else else
Result:= Result + " >" + body + "</"+tag_name+">" Result := Result + " >" + body + "</" + tag_name + ">"
end end
end end

View File

@@ -103,6 +103,7 @@ feature
loop loop
Result := c.item.render + Result Result := c.item.render + Result
end end
Result := render_tag (Result, "")
end end
add_control (c: WSF_CONTROL) add_control (c: WSF_CONTROL)