backup/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'widget' of github.com:ynh/EWF into widget

Browse Source 
Conflicts:
	library/server/wsf_html/webcontrol/wsf_control.e
This commit is contained in:
Severin Münger
2013-09-13 01:12:26 +02:00
parent f53974b138 6860860161
commit efc1550ab9
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
library/server/wsf_html/webcontrol/wsf_control.e
View File

@@ -11,7 +11,7 @@ inherit
WSF_STATELESS_CONTROL
redefine
render_tag_with_tagname
render_tag
end
feature
@@ -67,20 +67,19 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
feature -- Rendering
render_tag_with_tagname (tag, body, attrs, css_classes_string: STRING): STRING
render_tag (body, attrs: STRING): STRING
local
css_classes_string: STRING
l_attributes: STRING
do
l_attributes := attrs
if not css_classes_string.is_empty then
l_attributes := l_attributes + " class=%"" + css_classes_string + "%""
end
Result := "<" + tag + " id=%"" + control_name + "%" data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + l_attributes
if body.is_empty and not tag.is_equal ("textarea") then
Result := Result + " />"
else
Result := Result + " >" + body + "</" + tag + ">"
css_classes_string := ""
across
css_classes as c
loop
css_classes_string := css_classes_string + " " + c.item
end
l_attributes := "id=%"" + control_name + "%" data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + attrs
Result := render_tag_with_tagname (tag_name, body, l_attributes, css_classes_string)
end
feature --EVENT HANDLING