Extracted the WIDGET and FORM classes out of "cms" component
and build the wsf_html library which also include the previous css lib.
This commit is contained in:
52
library/server/wsf_html/widget/wsf_widget_table_column.e
Normal file
52
library/server/wsf_html/widget/wsf_widget_table_column.e
Normal file
@@ -0,0 +1,52 @@
|
||||
note
|
||||
description: "Summary description for {WSF_WIDGET_COLUMN}."
|
||||
author: ""
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
WSF_WIDGET_TABLE_COLUMN
|
||||
|
||||
inherit
|
||||
WSF_WITH_CSS_CLASS
|
||||
|
||||
WSF_WITH_CSS_STYLE
|
||||
|
||||
create
|
||||
make
|
||||
|
||||
feature {NONE} -- Initialization
|
||||
|
||||
make (i: like index)
|
||||
do
|
||||
index := i
|
||||
end
|
||||
|
||||
feature -- Access
|
||||
|
||||
index: INTEGER
|
||||
|
||||
title: detachable READABLE_STRING_32
|
||||
|
||||
feature -- Change
|
||||
|
||||
set_title (t: like title)
|
||||
do
|
||||
title := t
|
||||
end
|
||||
|
||||
feature -- Conversion
|
||||
|
||||
append_table_header_to_html (a_theme: WSF_THEME; a_html: STRING_8)
|
||||
do
|
||||
a_html.append ("<th")
|
||||
append_css_class_to (a_html, Void)
|
||||
append_css_style_to (a_html)
|
||||
a_html.append_character ('>')
|
||||
if attached title as l_title then
|
||||
a_html.append (a_theme.html_encoded (l_title))
|
||||
end
|
||||
a_html.append ("</th>")
|
||||
end
|
||||
|
||||
end
|
||||
Reference in New Issue
Block a user