WATrail

• renderContentOn:
• root:
• style

• on:

	|last selected|
	html cssClass: 'trail'.
	html unorderedList: [
		root visiblePresentersDo: 
			[:ea |
			(ea isDecoration and: [ea isDelegation]) ifTrue:
				[(ea component respondsTo: #trailName) ifTrue:
					[last _ ea.
					html listItem: [
						html anchorWithAction: [ea remove] text: ea component trailName.
					]]]].
		selected _ last ifNil: [root] ifNotNil: [last delegate].
		(selected respondsTo: #trailName) ifTrue:
			[html listItem: selected trailName].
	]

	root _ anObject

^'	ul.trail {
		margin-left: 0;
		padding-left: 0;
		display: inline;
		border: none;
	}
	ul.trail li {
        	margin-left: 0;
        	padding-left: 2px;
        	border: none;
        	list-style: none;
        	display: inline;
	}
	
	ul.trail  li:before {
        content: "\0020 \0020 \0020 \00BB \0020";
        }
        
	ul.trail li.first:before {
        content: " ";
        }
'

	^ self new root: anObject