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

class
	MENU

create
	make

feature
	parent: detachable MENU
	children: LINKED_LIST [MENU]
	title: STRING
	link: detachable STRING

	resolveLink: detachable STRING
		require
			parent /= void or link /= void
		do
			if attached link as a_link then
				Result := a_link
			elseif attached parent as a_parent then
				Result := a_parent.resolveLink
			end
		end

	setParent (newParent: MENU)
		do
			parent := newParent
		ensure
			parent = newParent
		end

	addChild (child: MENU)
		do
			children.put_front (child)
		end

feature {NONE}
	make (iTitle: STRING iLink: detachable STRING)
		do
			create children.make
			parent := void
			title := iTitle
			link := iLink
		end
end