Rewrite of ScaleMorph - March 2000 (Russell Swan). Added accessors. Added two Booleans, labelsAbove and captionAbove. Determines where the labels and captions print, if they exist. Tick marks can either go up or down. For ticks going up, put in majorTickLength > 0. Negative value will make ticks go down. Examples on Class side.

	drawing
	buildLabels drawMajorTicksOn: drawMinorTicksOn: drawOn: drawTicksOn:

	geometry
	checkExtent: extent:

	initialization
	initialize start:stop:minorTick:minorTickLength:majorTick:majorTickLength: start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock: start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock:labelsAbove:captionAbove:

	object fileIn
	convertToCurrentVersion:refStream:

	accessing	top
	caption
	caption:
	captionAbove:
	labelsAbove:
	majorTickLength:
	minorTickLength:
	start Start running my script. For ordinary morphs, this means start stepping.
	start:
	stop Stop running my script. For ordinary morphs, this means stop stepping.
	stop:
	tickPrintBlock:

	drawing	top
	buildLabels
	drawMajorTicksOn:
	drawMinorTicksOn:
	drawOn:
	drawTicksOn:

	geometry	top
	checkExtent:
	extent:

	initialization	top
	initialize
	start:stop:minorTick:minorTickLength:majorTick:majorTickLength:
	start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock:
	start:stop:minorTick:minorTickLength:majorTick:majorTickLength:caption:tickPrintBlock:labelsAbove:captionAbove:

	object fileIn	top
	convertToCurrentVersion:refStream: subclasses should implement if they wish to convert old instances to modern ones

	examples	top
	example1 Example 1 captions and labels above, ticks point up
	example2 Example 2 captions and labels above, ticks point down
	example3 Example 3 caption above, labels below, ticks point down
	example4 Example 4 caption below, labels above, ticks point up