No comment. Sorry.

	events
	handlesMouseDown: mouseDown: mouseMove:

	geometry
	placeFromSpec position: privateMoveBy: updateImage wiringEndPoint

	initialization
	component:pinSpec: delete initialize

	variables
	addModelVariable hasVariable mergeVariableWith: removeModelVariable removeVariableAccess shareVariableOf:

	wires
	addWire: canDockWith: connectedPins isIsolated removeWire: startWiring: unwire wireTo:

	accessing	top
	pinSpec

	events	top
	handlesMouseDown: Do I want to receive mouseDown events (mouseDown:, mouseMove:, mouseUp:)?
	mouseDown: Unshifted action is to move the pin (see mouseMove:)
	mouseMove: Handle a mouse move event. The default response is to let my eventHandler, if any, handle it.

	geometry	top
	placeFromSpec
	position: Adhere to owner bounds, and apply gridding
	privateMoveBy: Private! Use 'position:' instead.
	updateImage pinForm was made for right side. Rotate/flip for other sides
	wiringEndPoint

	initialization	top
	component:pinSpec:
	delete Remove the receiver as a submorph of its owner and make its new owner be nil.
	initialize

	variables	top
	addModelVariable
	hasVariable
	mergeVariableWith: Change all pins with otherPin's selectors to these selectors, and then remove the slot and accessors for the old selectors
	removeModelVariable
	removeVariableAccess
	shareVariableOf:

	wires	top
	addWire:
	canDockWith: Later include data type compatibility and circularity as well
	connectedPins
	isIsolated
	removeWire:
	startWiring: Start wiring from this pin
	unwire Remove wires one by one. Not fastest, but by far simplest
	wireTo: Note must return true or false indicating success

	as yet unclassified	top
	includeInNewMorphMenu Return true for all classes that can be instantiated from the menu
	initialize PinMorph initialize