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 {DEMO_DATASOURCE}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
DEMO_DATASOURCE
inherit
WSF_DATASOURCE [DEMO_DATA]
create
make_demo
feature
make_demo
do
page := 1
page_size := 10
end
data: ITERABLE [DEMO_DATA]
local
list: LINKED_LIST [DEMO_DATA]
do
create list.make
across
((page - 1) * page_size) |..| (page * page_size - 1) as c
loop
list.extend (create {DEMO_DATA}.make(c.item,"Name"+c.item.out,"desc "+c.item.out))
end
Result := list
end
end