# A `<ol>` list tag.
#
# Example:
#
# ~~~
# var lst = new OrderedList
# lst.add_li(new ListItem("foo"))
# lst.add_li(new ListItem("bar"))
# lst.add_li(new ListItem("baz"))
#
# assert lst.write_to_string == """
# <ol>
# <li>foo</li>
# <li>bar</li>
# <li>baz</li>
# </ol>
# """
# ~~~
class OrderedList
	super HTMLList

	redef fun rendering do
		addn "<ol{render_css_classes}>"
		for item in items do add item
		addn "</ol>"
	end
end