Create basepage

This commit is contained in:
YNH Webdev
2013-09-15 14:16:18 +02:00
parent 81952e7898
commit 251974fd2f
4 changed files with 53 additions and 23 deletions

View File

@@ -6,9 +6,13 @@ note
class
REPEATER_PAGE
inherit
WSF_PAGE_CONTROL
BASE_PAGE
redefine
initialize_controls
end
create
make
@@ -16,11 +20,8 @@ create
feature
initialize_controls
local
container: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
do
create container.make_multi_control ("container")
container.add_class ("container")
Precursor
container.add_control (create {WSF_BASIC_CONTROL}.make_with_body("h1","","Repeater Demo"))
create datasource.make_news
create search_query.make_autocomplete ("query", create {GOOGLE_AUTOCOMPLETION}.make)
@@ -30,7 +31,6 @@ feature
container.add_control (create {WSF_BASIC_CONTROL}.make_with_body("h2","","Results"))
create repeater.make_repeater ("myrepeater", datasource)
container.add_control (repeater)
control := container
end
change_query