Small changes/fixes

This commit is contained in:
Severin Münger
2013-09-13 01:08:18 +02:00
parent 9c65194d91
commit f53974b138
8 changed files with 57 additions and 33 deletions

View File

@@ -63,13 +63,13 @@ feature -- Implementation
render: STRING
local
attributes: STRING
attrs: STRING
do
attributes := "type=%"checkbox%""
attrs := "type=%"checkbox%""
if checked then
attributes := attributes + " checked"
attrs := attrs + " checked"
end
Result := render_tag_with_tagname ("div", render_tag_with_tagname ("label", render_tag ("", attributes) + " " + label, "", ""), "", "checkbox")
Result := render_tag_with_tagname ("div", render_tag_with_tagname ("label", render_tag ("", attrs) + " " + label, "", ""), "", "checkbox")
end
value: BOOLEAN