note
	description: "Summary description for {WSF_BASIC_CONTROL}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	WSF_BASIC_CONTROL

inherit

	WSF_STATELESS_CONTROL

create
	make_control,
	make_with_body

feature {NONE} -- Initialization

	make_control (t: STRING)
		do
			make_with_body (t, "", "")
		end

	make_with_body (t,attr,a_content: STRING)
		do
			make (t)
			attributes := attr
			content := a_content
		end

feature -- Access		

	attributes: STRING

	content: STRING

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