# Produce an HTMLTag with the correct contents and CSS classes
	# Subclasses can redefine it to decorate the tag
	redef fun make_tag(v): HTMLTag
	do
		var res = new HTMLTag("span")
		res.text(text)
		return res
	end

	redef fun make_tag(v)
	do
		var res = new HTMLTag("span")
		res.add_class("nc_d")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		if is_loose then
			res.add_class("nc_c")
		end
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_t")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_i")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_a")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_k")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_o")
		return res
	end

	redef fun make_tag(v)
	do
		var res = super
		res.add_class("nc_l")
		return res
	end

	redef fun make_tag(v)
	do
		var res = new HTMLTag("span")
		res.add_class("nc_def")
		return res
	end

	redef fun make_tag(v)
	do
		var res = new HTMLTag("span")
		res.add_class("nc_pdef")
		var mpd
		mpd = mpropdef
		if mpd != null then
			#res.add(tag(mpd))
			res.attr("id", mpd.to_s)
		end
		if self isa AAttrPropdef then
			mpd = mreadpropdef
			if mpd != null then res.add(tag(mpd))
			mpd = mwritepropdef
			if mpd != null then res.add(tag(mpd))
		end
		return res
	end

	redef fun make_tag(v)
	do
		var res = new HTMLTag("span")
		res.add_class("nc_cdef")
		var md = mclassdef
		if md != null then res.attr("id", md.to_s)
		return res
	end

	redef fun make_tag(v)
	do
		var res = new HTMLTag("span")
		res.add_class("nc_ss")
		return res
	end