Add Grid Widget

This commit is contained in:
YNH Webdev
2013-09-13 00:20:27 +02:00
parent 8fc405fef1
commit 36368aff0b
9 changed files with 355 additions and 0 deletions

View File

@@ -0,0 +1,38 @@
note
description: "Summary description for {WSF_GRID_COLUMN}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
WSF_GRID_COLUMN
create
make_column
feature {NONE}
make_column(a_header,a_field:STRING)
do
header:=a_header
field_name:=a_field
sorting_name:=a_field
end
feature
header: STRING
sortable: BOOLEAN
sorting_name: STRING
field_name: STRING
render_column (e: WSF_ENTITY): STRING
do
if attached e.get (field_name) as data then
Result := data.out
else
Result := "[VOID]"
end
end
end