Fixed rendering, added navbar

This commit is contained in:
Severin Münger
2013-09-13 23:24:49 +02:00
parent 15676a7c9e
commit 09544ba6d2
8 changed files with 96 additions and 23 deletions

View File

@@ -0,0 +1,49 @@
note
description: "Summary description for {WSF_BASIC_CONTROL}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
WSF_BASIC_CONTROL
inherit
WSF_STATELESS_CONTROL
create
make_control
feature {NONE} -- Initialization
attributes: STRING
content: STRING
make_control (t: STRING)
do
make (t)
attributes := ""
content := ""
end
feature -- Rendering
render: STRING
do
Result := render_tag (content, attributes)
end
feature
set_attributes (a: STRING)
do
attributes := a
end
set_content (c: STRING)
do
content := c
end
end