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

@@ -72,6 +72,7 @@ feature --EVENT HANDLING
end
feature
render_tag (body, attributes: STRING): STRING
do
Result := "<" + tag_name + " data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + attributes

View File

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