No comment. Sorry.

	geometry
	computeSlider extent: roomToMove sliderExtent sliderThickness totalSliderArea

	initialize
	initialize initializeSlider

	model access
	setValue: value:

	object fileIn

	other events
	mouseDownInSlider: mouseUpInSlider:

	scrolling
	scrollAbsolute:

	access	top
	descending
	descending:
	pagingArea
	sliderColor
	sliderColor:
	value
	wantsSlot For now do it the old way, until we sort this out

	geometry	top
	computeSlider
	extent:
	roomToMove
	sliderExtent
	sliderThickness
	totalSliderArea

	initialize	top
	initialize
	initializeSlider

	model access	top
	setValue: Called internally for propagation to model
	value: Drive the slider position externally...

object fileIn

top

	other events	top
	mouseDownInSlider:
	mouseUpInSlider:

	scrolling	top
	scrollAbsolute:

	as yet unclassified	top
	includeInNewMorphMenu OK to instantiate