I am a 16 x 16 dot matrix suitable for use as the Alto hardware cursor.

	displaying
	beCursor beCursorWithMask: show showGridded: showWhile:

	printing
	printOn:

	testing
	hasMask

	updating
	changed:

	constants
	blank bottomLeft bottomRight corner crossHair down execute marker menu move normal origin read resizeBottom resizeBottomLeft resizeBottomRight resizeLeft resizeRight resizeTop resizeTopLeft resizeTopRight rightArrow square topLeft topRight up wait webLink write

	current cursor
	currentCursor currentCursor:

	instance creation
	extent:fromArray:offset: new resizeForEdge:

	converting	top
	asCursorForm
	withMask

	displaying	top
	beCursor Primitive. Tell the interpreter to use the receiver as the current cursor image. Fail if the receiver does not match the size expected by the hardware. Essential. See Object documentation whatIsAPrimitive.
	beCursorWithMask: Primitive. Tell the interpreter to use the receiver as the current cursor image with the given mask Form. Both the receiver and the mask should have extent 16@16 and a depth of one. The mask and cursor bits are combined as follow: mask cursor effect 0 0 transparent (underlying pixel shows through) 1 1 opaque black 1 0 opaque white 0 1 invert the underlying pixel
	show Make the current cursor shape be the receiver.
	showGridded: Make the current cursor shape be the receiver, forcing the location of the cursor to the point nearest gridPoint.
	showWhile: While evaluating the argument, aBlock, make the receiver be the cursor shape.

	printing	top
	printOn: Append to the argument, aStream, a sequence of characters that identifies the receiver.

	testing	top
	hasMask

	updating	top
	changed: Receiver changed. The change is denoted by the argument aParameter. Usually the argument is a Symbol that is part of the dependent's change protocol. Inform all of the dependents.

	class initialization	top
	initCorner
	initCrossHair
	initDown
	initMarker
	initMenu
	initMove
	initNormal
	initNormalWithMask Cursor initNormalWithMask. Cursor normal show
	initOrigin
	initRead
	initRightArrow
	initSquare
	initUp
	initWait
	initWrite
	initXeq
	initialize Create all the standard cursors...
	makeCursorsWithMask Cursor initialize;makeCursorsWithMask
	startUp This message is sent to registered classes when the system is coming up.

	constants	top
	blank Answer the instance of me that is all white.
	bottomLeft Cursor bottomLeft showWhile: [Sensor waitButton]
	bottomRight Cursor bottomRight showWhile: [Sensor waitButton]
	corner Answer the instance of me that is the shape of the bottom right corner of a rectangle.
	crossHair Answer the instance of me that is the shape of a cross.
	down Answer the instance of me that is the shape of an arrow facing downward.
	execute Answer the instance of me that is the shape of an arrow slanted left with a star next to it.
	marker Answer the instance of me that is the shape of a small ball.
	menu Answer the instance of me that is the shape of a menu.
	move Answer the instance of me that is the shape of a cross inside a square.
	normal Answer the instance of me that is the shape of an arrow slanted left.
	origin Answer the instance of me that is the shape of the top left corner of a rectangle.
	read Answer the instance of me that is the shape of eyeglasses.
	resizeBottom Cursor resizeBottom showWhile: [Sensor waitButton]
	resizeBottomLeft Cursor resizeBottomLeft showWhile: [Sensor waitButton]
	resizeBottomRight Cursor resizeBottomRight showWhile: [Sensor waitButton]
	resizeLeft Cursor resizeLeft showWhile: [Sensor waitButton]
	resizeRight Cursor resizeRight showWhile: [Sensor waitButton]
	resizeTop Cursor resizeTop showWhile: [Sensor waitButton]
	resizeTopLeft Cursor resizeTopLeft showWhile: [Sensor waitButton]
	resizeTopRight Cursor resizeTopRight showWhile: [Sensor waitButton]
	rightArrow Answer the instance of me that is the shape of an arrow pointing to the right.
	square Answer the instance of me that is the shape of a square.
	topLeft Cursor topLeft showWhile: [Sensor waitButton]
	topRight Cursor topRight showWhile: [Sensor waitButton]
	up Answer the instance of me that is the shape of an arrow facing upward.
	wait Answer the instance of me that is the shape of an Hourglass (was in the shape of three small balls).
	webLink Return a cursor that can be used for emphasizing web links
	write Answer the instance of me that is the shape of a pen writing.

	current cursor	top
	currentCursor Answer the instance of Cursor that is the one currently displayed.
	currentCursor: Make the instance of cursor, aCursor, be the current cursor. Display it. Create an error if the argument is not a Cursor.

	instance creation	top
	extent:fromArray:offset: Answer a new instance of me with width and height specified by extentPoint, offset by offsetPoint, and bits from anArray. NOTE: This has been kluged to take an array of 16-bit constants, and shift them over so they are left-justified in a 32-bit bitmap
	new Answer a new instance of the receiver (which is a class) with no indexable variables. Fail if the class is indexable.
	resizeForEdge: Cursor resizeForEdge: #top