Subject: [BUG]Preferences class(Object)>>doesNotUnderstand: #addPreference:categories:default:balloonHelp:

here insert explanation of what you were doing, suspect changes you've made and so forth.

6 April 2011 2:01:19 pm

VM: Win32 - IX86 - 5.1 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.54]
Image: Pharo1.2.1 [Latest update: #12345]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Documents and Settings\hernan\Configuraci���n local\Datos de programa\Pharo 1.2.1 Release
Trusted Dir C:\Documents and Settings\hernan\Configuraci���n local\Datos de programa\Pharo 1.2.1 Release\hernan
Untrusted Dir C:\Documents and Settings\hernan\Mis documentos\My Squeak

Preferences class(Object)>>doesNotUnderstand: #addPreference:categories:default:balloonHelp:
	Receiver: Preferences
	Arguments and temporary variables: 
		aMessage: 	addPreference: #mercuryPanel categories: #('browsing') default: true ...etc...
		exception: 	MessageNotUnderstood: Preferences class>>addPreference:categories:de...etc...
		resumeValue: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#Preferences
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#Deprecated12
		traitComposition: 	{}
		localSelectors: 	nil

O2MercuryPanel class>>initialize
	Receiver: O2MercuryPanel
	Arguments and temporary variables: 

	Receiver's instance variables: 
		superclass: 	O2TextPanel
		methodDict: 	a MethodDictionary(#accept:notifying:->(O2MercuryPanel>>#accept:not...etc...
		format: 	134
		instanceVariables: 	#('text')
		organization: 	('callbacks' accept:notifying: notifyMouseEnter selection text)
(...etc...
		subclasses: 	nil
		name: 	#O2MercuryPanel
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'O2-Standard-Panels'
		traitComposition: 	{}
		localSelectors: 	nil

MCMethodDefinition>>postloadOver:
	Receiver: a MCMethodDefinition(O2MercuryPanel class>>initialize)
	Arguments and temporary variables: 
		aDefinition: 	nil
	Receiver's instance variables: 
		classIsMeta: 	true
		source: 	'initialize
	"OBMercuryPanel initialize"
	Preferences 
		addPreference:...etc...
		category: 	#'class initialization'
		selector: 	#initialize
		className: 	#O2MercuryPanel
		timeStamp: 	'dc 5/8/2007 19:49'

[:ea | ea
		postloadOver: (self obsoletionFor: ea)] in [additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...'] in [[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
		ea: 	a MCMethodDefinition(O2MercuryPanel class>>initialize)
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

[:each | 
| newLabel |
(count = 0
			or: [count + 1 = size
					or: [(Time millisecondsSince: lastUpdate)
							>= msecs]])
		ifTrue: [bar value: count.
			oldLabel = (newLabel := (labelBlock value: each)
								ifNil: [oldLabel])
				ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
			lastUpdate := Time millisecondClockValue].
	aBlock value: each.
	count := count + 1] in [:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: [count + 1 = size
							or: [(Time millisecondsSince: lastUpdate)
									>= msecs]])
				ifTrue: [bar value: count.
					oldLabel = (newLabel := (labelBlock value: each)
										ifNil: [oldLabel])
						ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
					lastUpdate := Time millisecondClockValue].
			aBlock value: each.
			count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-Standa...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-...etc...
		firstIndex: 	1
		lastIndex: 	1031

OrderedCollection>>do:
	Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-Standa...etc...
	Arguments and temporary variables: 
		aBlock: 	[:each | 
| newLabel |
(count = 0
			or: [count + 1 = size
					or: [(T...etc...
		index: 	311
	Receiver's instance variables: 
		array: 	an Array(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-...etc...
		firstIndex: 	1
		lastIndex: 	1031

[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: [count + 1 = size
							or: [(Time millisecondsSince: lastUpdate)
									>= msecs]])
				ifTrue: [bar value: count.
					oldLabel = (newLabel := (labelBlock value: each)
										ifNil: [oldLabel])
						ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
					lastUpdate := Time millisecondClockValue].
			aBlock value: each.
			count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-Standa...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-...etc...
		firstIndex: 	1
		lastIndex: 	1031

[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

BlockClosure>>on:do:
	Receiver: [result := workBlock value: progress]
	Arguments and temporary variables: 
		exception: 	ProgressNotification
		handlerAction: 	[:ex | 
ex extraParam isString
		ifTrue: [SystemProgressMorph un...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[[result := workBlock value: progress]
		on: ProgressNotification...etc...
		startpc: 	83
		numArgs: 	0

[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

BlockClosure>>ensure:
	Receiver: [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extr...etc...
	Arguments and temporary variables: 
		aBlock: 	[SystemProgressMorph close: progress]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	ProgressInitiationException>>defaultMorphicAction
		startpc: 	77
		numArgs: 	0

ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

MorphicUIManager>>progressInitiationExceptionDefaultAction:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
		anException: 	ProgressInitiationException: 
	Receiver's instance variables: 
		interactiveParser: 	nil

ProgressInitiationException>>defaultAction
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

UndefinedObject>>handleSignal:
	Receiver: nil
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
	Receiver's instance variables: 
nil

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
		val: 	nil
	Receiver's instance variables: 
		sender: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(25427968)")
		closureOrNil: 	nil
		receiver: 	[aBlock value]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
		val: 	nil
	Receiver's instance variables: 
		sender: 	SmalltalkEditor>>evaluateSelection
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(25427968)")
		closureOrNil: 	nil
		receiver: 	[rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStr...etc...

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(25427968)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(25427968)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException: 
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProg...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(25427968)")
		closureOrNil: 	nil
		receiver: 	[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingPro...etc...

ProgressInitiationException(Exception)>>signal
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

ProgressInitiationException>>display:at:from:to:during:
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 
		argString: 	''
		argPoint: 	354@234
		argMinVal: 	0
		argMaxVal: 	1031
		argWorkBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					o...etc...
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	1031
		minVal: 	0
		aPoint: 	354@234
		progressTitle: 	''

ProgressInitiationException class>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		aString: 	''
		aPoint: 	354@234
		minVal: 	0
		maxVal: 	1031
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
	Receiver's instance variables: 
		superclass: 	Exception
		methodDict: 	a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc...
		format: 	150
		instanceVariables: 	#('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle')
		organization: 	('*Morphic' defaultMorphicAction)
('accessing' maxVal minVal poin...etc...
		subclasses: 	nil
		name: 	#ProgressInitiationException
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'UIManager-Support'
		traitComposition: 	{}
		localSelectors: 	nil

ByteString(String)>>displayProgressAt:from:to:during:
	Receiver: ''
	Arguments and temporary variables: 
		aPoint: 	354@234
		minVal: 	0
		maxVal: 	1031
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
	Receiver's instance variables: 
''

OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-Standa...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-...etc...
		firstIndex: 	1
		lastIndex: 	1031

OrderedCollection(Collection)>>do:displayingProgress:
	Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-Standa...etc...
	Arguments and temporary variables: 
		aBlock: 	[:ea | ea
		postloadOver: (self obsoletionFor: ea)]
		aStringOrBlock: 	'Initializing...'
	Receiver's instance variables: 
		array: 	an Array(a MCOrganizationDefinition(#(#'O2-Standard-Announcements' #'O2-...etc...
		firstIndex: 	1
		lastIndex: 	1031

[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...'] in [[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

BlockClosure>>on:do:
	Receiver: [additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading class...etc...
	Arguments and temporary variables: 
		exception: 	InMidstOfFileinNotification
		handlerAction: 	[:n | n resume: true]
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[[additions
		do: [:ea | self loadClassDefinition: ea]
		displayi...etc...
		startpc: 	112
		numArgs: 	0

[[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

BlockClosure>>ensure:
	Receiver: [[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading clas...etc...
	Arguments and temporary variables: 
		aBlock: 	[self flushChangesFile]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	MCPackageLoader>>basicLoad
		startpc: 	108
		numArgs: 	0

MCPackageLoader>>basicLoad
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

[self basicLoad] in MCPackageLoader>>loadWithNameLike:
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

[aBlock value] in MCPackageLoader>>useChangeSetNamed:during:
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
		aBlock: 	[self basicLoad]
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

BlockClosure>>ensure:
	Receiver: [aBlock value]
	Arguments and temporary variables: 
		aBlock: 	[changeHolder newChanges: oldChanges]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	MCPackageLoader>>useChangeSetNamed:during:
		startpc: 	93
		numArgs: 	0

MCPackageLoader>>useChangeSetNamed:during:
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
		baseName: 	'O2-Standard-DavidRoethlisberger.12'
		aBlock: 	[self basicLoad]
		changeHolder: 	ChangeSet
		oldChanges: 	a ChangeSet named Unnamed
		newChanges: 	a ChangeSet named O2-Standard-DavidRoethlisberger.12
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

MCPackageLoader>>useNewChangeSetNamedLike:during:
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
		baseName: 	'O2-Standard-DavidRoethlisberger.12'
		aBlock: 	[self basicLoad]
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

MCPackageLoader>>loadWithNameLike:
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
		baseName: 	'O2-Standard-DavidRoethlisberger.12'
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#'O2-Standard-Anno...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Magma...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...

MCVersionLoader>>loadWithNameLike:
	Receiver: a MCVersionLoader
	Arguments and temporary variables: 
		aString: 	'O2-Standard-DavidRoethlisberger.12'
		loader: 	a MCPackageLoader
	Receiver's instance variables: 
		versions: 	an OrderedCollection(a MCVersion(O2-Standard-DavidRoethlisberger.12))...etc...

MCVersionLoader>>load
	Receiver: a MCVersionLoader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		versions: 	an OrderedCollection(a MCVersion(O2-Standard-DavidRoethlisberger.12))...etc...


--- The full stack ---
Preferences class(Object)>>doesNotUnderstand: #addPreference:categories:default:balloonHelp:
O2MercuryPanel class>>initialize
MCMethodDefinition>>postloadOver:
[:ea | ea
		postloadOver: (self obsoletionFor: ea)] in [additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...'] in [[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
[:each | 
| newLabel |
(count = 0
			or: [count + 1 = size
					or: [(Time millisecondsSince: lastUpdate)
							>= msecs]])
		ifTrue: [bar value: count.
			oldLabel = (newLabel := (labelBlock value: each)
								ifNil: [oldLabel])
				ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
			lastUpdate := Time millisecondClockValue].
	aBlock value: each.
	count := count + 1] in [:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: [count + 1 = size
							or: [(Time millisecondsSince: lastUpdate)
									>= msecs]])
				ifTrue: [bar value: count.
					oldLabel = (newLabel := (labelBlock value: each)
										ifNil: [oldLabel])
						ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
					lastUpdate := Time millisecondClockValue].
			aBlock value: each.
			count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection>>do:
[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: [count + 1 = size
							or: [(Time millisecondsSince: lastUpdate)
									>= msecs]])
				ifTrue: [bar value: count.
					oldLabel = (newLabel := (labelBlock value: each)
										ifNil: [oldLabel])
						ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)].
					lastUpdate := Time millisecondClockValue].
			aBlock value: each.
			count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection(Collection)>>do:displayingProgress:
[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...'] in [[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
BlockClosure>>on:do:
[[additions
		do: [:ea | self loadClassDefinition: ea]
		displayingProgress: 'Loading classes...'.
	additions
		do: [:ea | self tryToLoad: ea]
		displayingProgress: 'Compiling methods...'.
	removals
		do: [:ea | ea unload]
		displayingProgress: 'Cleaning up...'.
	self shouldWarnAboutErrors
		ifTrue: [self warnAboutErrors].
	errorDefinitions
		do: [:ea | ea addMethodAdditionTo: methodAdditions]
		displayingProgress: 'Reloading...'.
	methodAdditions
		do: [:each | each installMethod].
	methodAdditions
		do: [:each | each notifyObservers].
	additions
		do: [:ea | ea
				postloadOver: (self obsoletionFor: ea)]
		displayingProgress: 'Initializing...']
		on: InMidstOfFileinNotification
		do: [:n | n resume: true]] in MCPackageLoader>>basicLoad
BlockClosure>>ensure:
MCPackageLoader>>basicLoad
[self basicLoad] in MCPackageLoader>>loadWithNameLike:
[aBlock value] in MCPackageLoader>>useChangeSetNamed:during:
BlockClosure>>ensure:
MCPackageLoader>>useChangeSetNamed:during:
MCPackageLoader>>useNewChangeSetNamedLike:during:
MCPackageLoader>>loadWithNameLike:
MCVersionLoader>>loadWithNameLike:
MCVersionLoader>>load
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
MetacelloGoferLoad(GoferLoad)>>execute
[goferLoad := MetacelloGoferLoad on: Gofer new.
	goferLoad addResolved: resolvedReference.
	goferLoad execute.
	MetacelloPlatform current clearCurrentVersionCache] in [| loadBlock answers resolvedReference goferLoad |
aGofer disablePackageCache.
	resolvedReference := self resolvePackageSpec: packageSpec gofer: aGofer.
	resolvedReference isNil
		ifTrue: [^ self].
	loadBlock := [goferLoad := MetacelloGoferLoad on: Gofer new.
			goferLoad addResolved: resolvedReference.
			goferLoad execute.
			MetacelloPlatform current clearCurrentVersionCache].
	(answers := packageSpec answers) notEmpty
		ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers]
		ifFalse: [loadBlock value].
	resolvedReference workingCopy repositoryGroup addRepository: aPackageLoadDirective repository.
	Transcript cr; show: 'Loaded -> ' , resolvedReference name , ' --- ' , aPackageLoadDirective repository description , ' --- ' , resolvedReference repository description] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer:
[| loadBlock answers resolvedReference goferLoad |
aGofer disablePackageCache.
	resolvedReference := self resolvePackageSpec: packageSpec gofer: aGofer.
	resolvedReference isNil
		ifTrue: [^ self].
	loadBlock := [goferLoad := MetacelloGoferLoad on: Gofer new.
			goferLoad addResolved: resolvedReference.
			goferLoad execute.
			MetacelloPlatform current clearCurrentVersionCache].
	(answers := packageSpec answers) notEmpty
		ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers]
		ifFalse: [loadBlock value].
	resolvedReference workingCopy repositoryGroup addRepository: aPackageLoadDirective repository.
	Transcript cr; show: 'Loaded -> ' , resolvedReference name , ' --- ' , aPackageLoadDirective repository description , ' --- ' , resolvedReference repository description] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadPackageDirective:gofer:
MetacelloPackageLoadDirective>>loadUsing:gofer:
[:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer:
OrderedCollection>>do:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer:
MetacelloLinearLoadDirective>>loadUsing:gofer:
[:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer:
OrderedCollection>>do:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer:
MetacelloLinearLoadDirective>>loadUsing:gofer:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadWithPolicy:
MetacelloLoaderPolicy>>load
MetacelloFetchingMCSpecLoader>>doLoad
[fetchLoader doLoad] in [| fetchLoader |
fetchLoader := self fetchRequiredFromArray: anArray.
	MetacelloPlatform current
		do: [fetchLoader doLoad]
		displaying: 'Loading ' , displayString.
	Transcript cr; show: '...finished ' , self versionNumber printString.
	^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
[| fetchLoader |
fetchLoader := self fetchRequiredFromArray: anArray.
	MetacelloPlatform current
		do: [fetchLoader doLoad]
		displaying: 'Loading ' , displayString.
	Transcript cr; show: '...finished ' , self versionNumber printString.
	^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray:
BlockClosure>>ensure:
MetacelloMCVersion>>doLoadRequiredFromArray:
ByteString(String)>>loadRequiredForMetacelloMCVersion:
MetacelloMCVersion>>load:
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
[rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStream
		in: ctxt
		to: rcvr
		notifying: self morph
		ifFail: [FakeClassPool adopt: nil.
			^ #failedDoit]
		logged: true] in SmalltalkEditor>>evaluateSelection
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelection
[| result |
result := textMorph editor evaluateSelection.
	((result isKindOf: FakeClassPool)
			or: [result == #failedDoit])
		ifTrue: [self flash]
		ifFalse: [result inspect]] in PluggableTextMorph>>inspectIt
[result := editBlock value] in PluggableTextMorph>>handleEdit:
TextMorphForEditView(TextMorph)>>handleEdit:
PluggableTextMorph>>handleEdit:
PluggableTextMorph>>inspectIt
UndefinedObject(Object)>>perform:orSendTo:
[| selArgCount | (selArgCount := selector numArgs) = 0
		ifTrue: [target perform: selector]
		ifFalse: [selArgCount = arguments size
				ifTrue: [target perform: selector withArguments: arguments]
				ifFalse: [target
						perform: selector
						withArguments: (arguments copyWith: evt)]]] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
WorldState>>doOneSubCycleFor:
PasteUpMorph>>doOneSubCycle
MenuMorph>>invokeModalAt:in:allowKeyboard:
MenuMorph>>invokeModal:
MenuMorph>>invokeModal
PluggableTextMorph>>yellowButtonActivity:
TextMorphForEditView>>mouseDown:
TextMorphForEditView(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TextMorphForEditView(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TransformMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PluggableTextMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
SystemWindow(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess