added make_with_text_and_css on CMS_WIDGET_TABLE_ITEM

This commit is contained in:
Jocelyn Fiat
2013-03-01 18:21:05 +01:00
parent 42bd4fa58f
commit f029c746bc

View File

@@ -16,6 +16,7 @@ inherit
create create
make_with_text, make_with_text,
make_with_text_and_css,
make_with_content make_with_content
feature {NONE} -- Initialization feature {NONE} -- Initialization
@@ -25,6 +26,18 @@ feature {NONE} -- Initialization
make_with_content (create {CMS_WIDGET_TEXT}.make_with_text (a_text)) make_with_content (create {CMS_WIDGET_TEXT}.make_with_text (a_text))
end end
make_with_text_and_css (a_text: READABLE_STRING_8; a_css_classes: detachable ITERABLE [READABLE_STRING_8])
do
make_with_text (a_text)
if a_css_classes /= Void then
across
a_css_classes as c
loop
add_css_class (c.item)
end
end
end
make_with_content (a_widget: CMS_WIDGET) make_with_content (a_widget: CMS_WIDGET)
do do
content := a_widget content := a_widget