Added progress callback

This commit is contained in:
Severin Münger
2013-09-15 22:13:51 +02:00
parent 647beea245
commit 2fbffb8c9e
6 changed files with 63 additions and 5 deletions

View File

@@ -53,8 +53,11 @@ feature -- Event handling
feature -- Rendering
render: STRING
local
p: STRING
do
Result := render_tag_with_tagname ("div", "", "role=%"progressbar%" aria-valuenow=%"" + progress_value.out + "%" aria-valuemin=%"0%" aria-valuemax=%"100%" style=%"width: " + progress_value.out + "%%;%"", "progress-bar")
p := progress_value.out
Result := render_tag_with_tagname ("div", "", "role=%"progressbar%" aria-valuenow=%"" + p + "%" aria-valuemin=%"0%" aria-valuemax=%"100%" style=%"width: " + p + "%%;%"", "progress-bar")
Result := render_tag (Result, "")
end