THERE_BE_DRAGONS_HERE
MessageNotUnderstood: receiver of "classTrait" is nil
4 June 2012 7:39:07.565 am

VM: Mac OS - intel - 1060 - CoInterpreter VMMaker-oscog-IgorStasenko.123 uuid: f8c5573e-7fd1-4959-91fc-e0c24d967e03 Sep 12 2011, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.123 uuid: f8c5573e-7fd1-4959-91fc-e0c24d967e03 Sep 12 2011, https://git.gitorious.org/~estebanlm/cogvm/cog-osx.git Commit: 04d9cb03c0cee6d217bb4b6fbc16494435a8b722 Date: Mon Sep 12 10:59:31 2011 -0300 By: Esteban Lorenzano <estebanlm@gmail.com>
Image: Pharo1.4 [Latest update: #14438]

UndefinedObject(Object)>>doesNotUnderstand: #classTrait
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	classTrait
		exception: 	MessageNotUnderstood: receiver of "classTrait" is nil
		resumeValue: 	nil
	Receiver's instance variables: 
nil

UndefinedObject>>DoIt
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil

Compiler>>evaluate:in:to:notifying:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	'TAnnouncer classTrait'
		aContext: 	nil
		receiver: 	nil
		aRequestor: 	nil
		failBlock: 	[^ nil]
		logFlag: 	false
		methodNode: 	DoIt
	^ TAnnouncer classTrait
		method: 	(UndefinedObject>>#DoIt "a CompiledMethod(68681728)")
		value: 	nil
		toLog: 	nil
		itsSelection: 	nil
		itsSelectionString: 	nil
	Receiver's instance variables: 
		sourceStream: 	a ReadStream
		requestor: 	nil
		class: 	UndefinedObject
		category: 	nil
		context: 	nil
		parser: 	a Parser


Compiler class>>evaluate:for:notifying:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'TAnnouncer classTrait'
		anObject: 	nil
		aController: 	nil
		logFlag: 	false
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
		format: 	142
		instanceVariables: 	#('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
		organization: 	('error handling' interactive notify: notify:at:)
('public access...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Compiler-Kernel'
		traitComposition: 	nil
		localSelectors: 	nil


Compiler class>>evaluate:for:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'TAnnouncer classTrait'
		anObject: 	nil
		logFlag: 	false
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
		format: 	142
		instanceVariables: 	#('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
		organization: 	('error handling' interactive notify: notify:at:)
('public access...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Compiler-Kernel'
		traitComposition: 	nil
		localSelectors: 	nil


Compiler class>>evaluate:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'TAnnouncer classTrait'
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc...
		format: 	142
		instanceVariables: 	#('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc...
		organization: 	('error handling' interactive notify: notify:at:)
('public access...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Compiler-Kernel'
		traitComposition: 	nil
		localSelectors: 	nil


MCClassDefinition>>createClass
	Receiver: a MCClassDefinition(LogFilter)
	Arguments and temporary variables: 
		superClass: 	Object
		class: 	LogFilter
		composition: 	nil
	Receiver's instance variables: 
		name: 	#LogFilter
		superclassName: 	#Object
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(announcer))
		category: 	#'PaulLePoulpe-Filter'
		type: 	#normal
		comment: 	''
		commentStamp: 	''
		traitComposition: 	'TAnnouncer'
		classTraitComposition: 	'TAnnouncer classTrait'


MCClassDefinition>>load
	Receiver: a MCClassDefinition(LogFilter)
	Arguments and temporary variables: 
		class: 	nil
	Receiver's instance variables: 
		name: 	#LogFilter
		superclassName: 	#Object
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(announcer))
		category: 	#'PaulLePoulpe-Filter'
		type: 	#normal
		comment: 	''
		commentStamp: 	''
		traitComposition: 	'TAnnouncer'
		classTraitComposition: 	'TAnnouncer classTrait'


MCClassDefinition(MCDefinition)>>addMethodAdditionTo:
	Receiver: a MCClassDefinition(LogFilter)
	Arguments and temporary variables: 
		aCollection: 	an OrderedCollection(a MethodAddition a MethodAddition a MethodAdd...etc...
	Receiver's instance variables: 
		name: 	#LogFilter
		superclassName: 	#Object
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(announcer))
		category: 	#'PaulLePoulpe-Filter'
		type: 	#normal
		comment: 	''
		commentStamp: 	''
		traitComposition: 	'TAnnouncer'
		classTraitComposition: 	'TAnnouncer classTrait'


[:ea | ea addMethodAdditionTo: methodAdditions] 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 MCClassDefinition(LogFilter)
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a MCOrganizationDefinition(#(#PaulLePoulpe #'Pa...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(LogFilter) a MCClass...etc...
		provisions: 	a Set(#ZnUtilsTests #InternetConfiguration #TextComposer #Metacello...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 MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilter) a ...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilt...etc...
		firstIndex: 	1
		lastIndex: 	5


OrderedCollection>>do:
	Receiver: an OrderedCollection(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilter) a ...etc...
	Arguments and temporary variables: 
		aBlock: 	[:each | 
| newLabel |
(count = 0
			or: [count + 1 = size
					or: [(T...etc...
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilt...etc...
		firstIndex: 	1
		lastIndex: 	5


[: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 MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilter) a ...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilt...etc...
		firstIndex: 	1
		lastIndex: 	5


[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
		signaler: 	''
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	5
		minVal: 	0
		aPoint: 	(488@331)
		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: 	87
		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
		signaler: 	''
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	5
		minVal: 	0
		aPoint: 	(488@331)
		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: 	81
		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
		signaler: 	''
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	5
		minVal: 	0
		aPoint: 	(488@331)
		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
		signaler: 	''
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	5
		minVal: 	0
		aPoint: 	(488@331)
		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(869793792)")
		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: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(869793792)")
		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>>evaluateSelectionAndDo:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(869793792)")
		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(869793792)")
		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(869793792)")
		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(869793792)")
		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
		signaler: 	''
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
		maxVal: 	5
		minVal: 	0
		aPoint: 	(488@331)
		progressTitle: 	''


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


ProgressInitiationException class>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		aString: 	''
		aPoint: 	(488@331)
		minVal: 	0
		maxVal: 	5
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
	Receiver's instance variables: 
		superclass: 	Exception
		methodDict: 	a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc...
		format: 	152
		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: 	nil
		localSelectors: 	nil


ByteString(String)>>displayProgressFrom:to:during:
	Receiver: ''
	Arguments and temporary variables: 
		minVal: 	0
		maxVal: 	5
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
	Receiver's instance variables: 
''

OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilter) a ...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilt...etc...
		firstIndex: 	1
		lastIndex: 	5


OrderedCollection(Collection)>>do:displayingProgress:
	Receiver: an OrderedCollection(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilter) a ...etc...
	Arguments and temporary variables: 
		aBlock: 	[:ea | ea addMethodAdditionTo: methodAdditions]
		aStringOrBlock: 	'Reloading...'
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(LogFilter) a MCClassDefinition(LevelLogFilt...etc...
		firstIndex: 	1
		lastIndex: 	5


[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(#(#PaulLePoulpe #'Pa...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(LogFilter) a MCClass...etc...
		provisions: 	a Set(#ZnUtilsTests #InternetConfiguration #TextComposer #Metacello...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: 	116
		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(#(#PaulLePoulpe #'Pa...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(LogFilter) a MCClass...etc...
		provisions: 	a Set(#ZnUtilsTests #InternetConfiguration #TextComposer #Metacello...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: 	112
		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(#(#PaulLePoulpe #'Pa...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(LogFilter) a MCClass...etc...
		provisions: 	a Set(#ZnUtilsTests #InternetConfiguration #TextComposer #Metacello...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(#(#PaulLePoulpe #'Pa...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(LogFilter) a MCClass...etc...
		provisions: 	a Set(#ZnUtilsTests #InternetConfiguration #TextComposer #Metacello...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...



--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #classTrait
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:
MCClassDefinition>>createClass
MCClassDefinition>>load
MCClassDefinition(MCDefinition)>>addMethodAdditionTo:
[:ea | ea addMethodAdditionTo: methodAdditions] 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:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressFrom: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 execute.
	pkgLoads
		do: [:packageLoadDirective | packageLoadDirective resolvedReference
				ifNil: [Transcript cr; tab; show: 'Already Loaded -> ' , packageLoadDirective file]
				ifNotNil: [Transcript cr; tab; show: 'Loaded -> ' , packageLoadDirective file , ' --- ' , packageLoadDirective repository description , ' --- ' , packageLoadDirective resolvedReference repository description.
					packageLoadDirective resolvedReference workingCopy repositoryGroup addRepository: packageLoadDirective repository]].
	MetacelloPlatform current clearCurrentVersionCache] in [| goferLoad loadBlock answers |
goferLoad := MetacelloGoferLoad on: aGofer.
	answers := OrderedCollection new.
	pkgLoads
		do: [:packageLoadDirective | 
			| resolvedReference |
			aGofer disablePackageCache.
			(resolvedReference := self resolvePackageSpec: packageLoadDirective spec gofer: aGofer) ~~ nil
				ifTrue: [goferLoad addResolved: resolvedReference.
					answers addAll: packageLoadDirective spec answers.
					packageLoadDirective resolvedReference: resolvedReference]].
	Transcript cr; show: 'Starting atomic load'.
	loadBlock := [goferLoad execute.
			pkgLoads
				do: [:packageLoadDirective | packageLoadDirective resolvedReference
						ifNil: [Transcript cr; tab; show: 'Already Loaded -> ' , packageLoadDirective file]
						ifNotNil: [Transcript cr; tab; show: 'Loaded -> ' , packageLoadDirective file , ' --- ' , packageLoadDirective repository description , ' --- ' , packageLoadDirective resolvedReference repository description.
							packageLoadDirective resolvedReference workingCopy repositoryGroup addRepository: packageLoadDirective repository]].
			MetacelloPlatform current clearCurrentVersionCache].
	answers notEmpty
		ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers]
		ifFalse: [loadBlock value].
	Transcript cr; show: 'Finished atomic load'] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirectives:gofer:
[| goferLoad loadBlock answers |
goferLoad := MetacelloGoferLoad on: aGofer.
	answers := OrderedCollection new.
	pkgLoads
		do: [:packageLoadDirective | 
			| resolvedReference |
			aGofer disablePackageCache.
			(resolvedReference := self resolvePackageSpec: packageLoadDirective spec gofer: aGofer) ~~ nil
				ifTrue: [goferLoad addResolved: resolvedReference.
					answers addAll: packageLoadDirective spec answers.
					packageLoadDirective resolvedReference: resolvedReference]].
	Transcript cr; show: 'Starting atomic load'.
	loadBlock := [goferLoad execute.
			pkgLoads
				do: [:packageLoadDirective | packageLoadDirective resolvedReference
						ifNil: [Transcript cr; tab; show: 'Already Loaded -> ' , packageLoadDirective file]
						ifNotNil: [Transcript cr; tab; show: 'Loaded -> ' , packageLoadDirective file , ' --- ' , packageLoadDirective repository description , ' --- ' , packageLoadDirective resolvedReference repository description.
							packageLoadDirective resolvedReference workingCopy repositoryGroup addRepository: packageLoadDirective repository]].
			MetacelloPlatform current clearCurrentVersionCache].
	answers notEmpty
		ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers]
		ifFalse: [loadBlock value].
	Transcript cr; show: 'Finished atomic load'] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirectives: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:
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)>>loadPackageDirectives:gofer:
MetacelloAtomicLoadDirective>>finalizeLoad:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadAtomicLoadDirective:gofer:
MetacelloAtomicLoadDirective>>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: (self defaultPackageNamesToLoad: 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:
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: (self defaultPackageNamesToLoad: anArray).
	MetacelloPlatform current
		do: [fetchLoader doLoad]
		displaying: 'Loading ' , displayString.
	Transcript cr; show: '...finished ' , self versionNumber printString.
	^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray:
BlockClosure>>ensure:
MetacelloMCVersion>>doLoadRequiredFromArray:
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: [self morph flash.
			^ nil]
		logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelectionAndDo:
SmalltalkEditor>>evaluateSelection
[textMorph editor evaluateSelection] in PluggableTextMorph>>doIt
[result := editBlock value] in PluggableTextMorph>>handleEdit:
TextMorphForEditView(TextMorph)>>handleEdit:
PluggableTextMorph>>handleEdit:
PluggableTextMorph>>doIt
Workspace(StringHolder)>>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)]].
	self changed] 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
[:menu | 
menu setInvokingView: self.
	menu invokeModal.
	^ true] in PluggableTextMorph>>yellowButtonActivity:
MenuMorph(Object)>>ifNotNilDo:
PluggableTextMorph>>yellowButtonActivity:
SmalltalkEditor(TextEditor)>>mouseUp:
[editor mouseUp: evt] in TextMorphForEditView(TextMorph)>>mouseUp:
TextMorphForEditView(TextMorph)>>handleInteraction:
TextMorphForEditView>>handleInteraction:
TextMorphForEditView(TextMorph)>>mouseUp:
TextMorphForEditView>>mouseUp:
TextMorphForEditView(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>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:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in MorphicUIManager>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
-------------------------------------------------------------------------------