67 lines
975 B
Plaintext
67 lines
975 B
Plaintext
note
|
|
description: "Summary description for {WSF_BASIC_CONTROL}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
WSF_BASIC_CONTROL
|
|
|
|
inherit
|
|
|
|
WSF_STATELESS_CONTROL
|
|
redefine
|
|
attributes
|
|
end
|
|
|
|
create
|
|
make_control, make_with_body
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make_control (t: STRING)
|
|
-- Initialize
|
|
do
|
|
make_with_body (t, "", "")
|
|
end
|
|
|
|
make_with_body (t, attr, b: STRING)
|
|
-- Initialize with specific attributes and body
|
|
do
|
|
make (t)
|
|
attributes := attr
|
|
body := b
|
|
end
|
|
|
|
feature -- Rendering
|
|
|
|
render: STRING
|
|
-- HTML representation of this control
|
|
do
|
|
Result := render_tag (body, attributes)
|
|
end
|
|
|
|
feature -- Change
|
|
|
|
set_attributes (a: STRING)
|
|
-- Set the attributes string of this control
|
|
do
|
|
attributes := a
|
|
end
|
|
|
|
set_body (b: STRING)
|
|
-- Set the body of this control
|
|
do
|
|
body := b
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
attributes: STRING
|
|
-- Attributes of this control
|
|
|
|
body: STRING
|
|
-- Body of this control
|
|
|
|
end
|