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

@@ -0,0 +1,35 @@
note
description: "Summary description for {BASE_PAGE}."
author: ""
date: "$Date$"
revision: "$Revision$"
deferred class
BASE_PAGE
inherit
WSF_PAGE_CONTROL
feature
initialize_controls
local
navbar: WSF_NAVBAR_CONTROL
do
create container.make_multi_control ("container")
container.add_class ("container")
create navbar.make_navbar ("Sample Page")
navbar.add_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/%"", "Home"))
navbar.add_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/grid%"", "Grid"))
navbar.add_element (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"/repeater%"", "Repeater"))
navbar.add_element_right (create {WSF_BASIC_CONTROL}.make_with_body ("a", "href=%"#%"", "About"))
container.add_control (navbar)
control:=container
end
feature
container: WSF_MULTI_CONTROL [WSF_STATELESS_CONTROL]
end