Contributed by Bob Arning as part of the ObjectExplorer package.
Don't blame him if it's not perfect. We wanted to get it out for people to play with.

	drawing
	drawOn: drawToggleOn:in: highlight unhighlight

	initialization
	initWithContents:prior:forList:indentLevel: initialize

	mouse events
	acceptDroppingMorph:event: inToggleArea:

	as yet unclassified	top
	addChildrenForList:addingTo:withExpandedItems:
	balloonText Answer balloon help text or nil, if no help is available. NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer
	boundsForBalloon some morphs have bounds that are way too big
	canExpand
	children
	childrenDo:
	complexContents
	firstChild
	indentLevel
	isExpanded
	isExpanded:
	nextSibling
	nextSibling:
	openPath:
	recomputeAllForList:addingTo:withExpandedItems:
	recomputeForList:addingTo:withExpandedItems:
	recursiveAddTo:
	recursiveDelete
	toggleExpandedState
	toggleRectangle
	withSiblingsDo:
	withoutListWrapper

	drawing	top
	drawOn:
	drawToggleOn:in:
	highlight The receiver is being asked to appear in a highlighted state. Mostly used for textual morphs
	unhighlight

	initialization	top
	initWithContents:prior:forList:indentLevel:
	initialize

	mouse events	top
	acceptDroppingMorph:event: This message is sent when a morph is dropped onto a morph that has agreed to accept the dropped morph by responding 'true' to the wantsDroppedMorph:Event: message. This default implementation just adds the given morph to the receiver.
	inToggleArea: