Fixed rendering, added navbar
This commit is contained in:
49
library/server/wsf_html/webcontrol/wsf_basic_control.e
Normal file
49
library/server/wsf_html/webcontrol/wsf_basic_control.e
Normal 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
|
||||
Reference in New Issue
Block a user