No comment. Sorry.

	object fileIn
	convertToCurrentVersion:refStream:

	printing
	storeOn:

	private
	setType:argument: setType:argument:hand:stamp: type:readFrom:

	accessing	top
	argument
	argument:
	position
	type Return a symbol indicating the type this event.

	object fileIn	top
	convertToCurrentVersion:refStream: ar 10/25/2000: This method is used to convert OLD MorphicEvents into new ones.

	printing	top
	storeOn: Append to the argument aStream a sequence of characters that is an expression whose evaluation creates an object similar to the receiver.

	private	top
	setType:argument:
	setType:argument:hand:stamp:
	type:readFrom: Read a MorphicEvent from the given stream.