Added slider demo

This commit is contained in:
Severin Münger
2013-09-24 02:38:36 +02:00
parent a5fa428e98
commit 6908bfe7bf
9 changed files with 82 additions and 31 deletions

View File

@@ -10,6 +10,9 @@ deferred class
inherit
WSF_PAGE_CONTROL
redefine
control
end
feature
@@ -17,21 +20,21 @@ feature
local
navbar: WSF_NAVBAR_CONTROL
do
create container.make_multi_control ("container")
container.add_class ("container")
create control.make_multi_control ("container")
control.add_class ("container")
create navbar.make_navbar_with_brand ("Example")
navbar.add_list_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/%"", "Home"))
navbar.add_list_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/grid%"", "Grid"))
navbar.add_list_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/repeater%"", "Repeater"))
navbar.add_list_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/slider%"", "Image Slider"))
navbar.add_list_element_right (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"#%"", "About"))
if not attached get_parameter ("ajax") then
container.add_control (navbar)
control.add_control (navbar)
end
control := container
end
feature
container: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
control: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
end