[Pharo-project] [BUG][:var | (self bindingOf: var) notNil ifTrue: [DuplicatedVariableError new variable: var; signal: var , ' is defined elsewhere'. conflicts := true]] in AIDASite class(Class)>>declare:

janko.mivsek at eranova.si janko.mivsek at eranova.si
Wed Feb 2 12:26:50 CET 2011


See explanation in my prevous mail '1.2: class var #Instance not
allowed'.

2 February 2011 12:23:58 pm

VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter
VMMaker-oscog.35]
Image: Pharo1.2rc2 [Latest update: #12329]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir
/home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources
Trusted Dir
/home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources/sec
ure
Untrusted Dir
/home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources/My
Squeak

[:var | (self bindingOf: var) notNil
		ifTrue: [DuplicatedVariableError new variable: var;
				 signal: var , ' is defined elsewhere'.
			conflicts := true]] in AIDASite class(Class)>>declare:
	Receiver: AIDASite
	Arguments and temporary variables: 
		conflicts: 	#Instance
		var: 	#(false)
	Receiver's instance variables: 
		superclass: 	SwazooSite
		methodDict: 	a MethodDictionary()
		format: 	154
		instanceVariables: 	#('style' 'settings' 'systemServices'
'userServices' 'timest...etc...
		organization: 	nil
		subclasses: 	nil
		name: 	#AIDASite
		classPool: 	nil
		sharedPools: 	nil
		environment: 	nil
		category: 	nil
		traitComposition: 	nil
		localSelectors: 	nil

Array(SequenceableCollection)>>do:
	Receiver: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters)
	Arguments and temporary variables: 
		aBlock: 	[:var | (self bindingOf: var) notNil
		ifTrue: [DuplicatedVariableError...etc...
		index: 	3
		indexLimiT: 	5
	Receiver's instance variables: 
#(#Default #Dialect #Instance #RandomGen #SloveneCharacters)

AIDASite class(Class)>>declare:
	Receiver: AIDASite
	Arguments and temporary variables: 
		varString: 	'Default Dialect Instance RandomGen SloveneCharacters'
		newVars: 	#(#Default #Dialect #Instance #RandomGen #SloveneCharacters)
		conflicts: 	#(false)
	Receiver's instance variables: 
		superclass: 	SwazooSite
		methodDict: 	a MethodDictionary()
		format: 	154
		instanceVariables: 	#('style' 'settings' 'systemServices'
'userServices' 'timest...etc...
		organization: 	nil
		subclasses: 	nil
		name: 	#AIDASite
		classPool: 	nil
		sharedPools: 	nil
		environment: 	nil
		category: 	nil
		traitComposition: 	nil
		localSelectors: 	nil

[| newCategory oldCategory needNew force organization |
unsafe
		ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass)
				ifFalse: [^ nil].
			(self
					validateInstvars: instVars
					from: oldClass
					forSuper: newSuper)
				ifFalse: [^ nil].
			(self
					validateClassvars: classVars
					from: oldClass
					forSuper: newSuper)
				ifFalse: [^ nil].
			(self
					validateSubclassFormat: type
					from: oldClass
					forSuper: newSuper
					extra: instVars size)
				ifFalse: [^ nil]].
	needNew := self
				needsSubclassOf: newSuper
				type: type
				instanceVariables: instVars
				from: oldClass.
	needNew
		ifNil: [^ nil].
	(needNew
			and: [unsafe not])
		ifTrue: [(self tooDangerousClasses includes: oldClass name)
				ifTrue: [self error: oldClass name , ' cannot be changed'].
			(oldClass ~~ nil
					and: [oldClass shouldNotBeRedefined])
				ifTrue: [self notify: oldClass name asText allBold , ' should not be
redefined. \Proceed to store over it.' withCRs]].
	needNew
		ifTrue: [newClass := self
						newSubclassOf: newSuper
						type: type
						instanceVariables: instVars
						from: oldClass.
			newClass
				ifNil: [^ nil].
			newClass setName: className]
		ifFalse: [newClass := oldClass].
	force := (newClass declare: classVarString)
				| (newClass sharing: poolString).
	newCategory := category asSymbol.
	organization := environ
				ifNotNil: [environ organization].
	oldClass isNil
		ifFalse: [oldCategory := (organization categoryOfElement: oldClass
name) asSymbol].
	organization classify: newClass name under: newCategory.
	newClass environment: environ.
	newClass := self
				recompile: force
				from: oldClass
				to: newClass
				mutate: false.
	(environ
			at: newClass name
			ifAbsent: [])
			== newClass
		ifFalse: [environ at: newClass name put: newClass.
			Smalltalk globals flushClassNameCache].
	copyOfOldTraitComposition
		ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition].
	copyOfOldClassTraitComposition
		ifNotNil: [newClass class setTraitComposition:
copyOfOldClassTraitComposition].
	newClass doneCompiling.
	oldClass isNil
		ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass
inCategory: newCategory.
			^ newClass].
	newCategory ~= oldCategory
		ifTrue: [SystemChangeNotifier uniqueInstance
				class: newClass
				recategorizedFrom: oldCategory
				to: category]
		ifFalse: [SystemChangeNotifier uniqueInstance
classDefinitionChangedFrom: copyOfOldClass to: newClass]] in
ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:unsafe:
	Receiver: a ClassBuilder
	Arguments and temporary variables: 
		className: 	#AIDASite
		newSuper: 	SwazooSite
		type: 	#normal
		classVarString: 	'Default Dialect Instance RandomGen
SloveneCharacters'
		poolString: 	''
		category: 	#'Aida-Core'
		unsafe: 	false
		oldClass: 	nil
		instVars: 	#('style' 'settings' 'systemServices' 'userServices'
'timestamps' 'co...etc...
		classVars: 	#(#Default #Dialect #Instance #RandomGen
#SloveneCharacters)
		copyOfOldClass: 	nil
		copyOfOldTraitComposition: 	nil
		copyOfOldClassTraitComposition: 	nil
		newClass: 	an Array(AIDASite)
		newCategory: 	nil
		oldCategory: 	nil
		needNew: 	true
		force: 	nil
		organization: 	nil
	Receiver's instance variables: 
		environ: 	a SystemDictionary(lots of globals)
		classMap: 	nil
		instVarMap: 	an IdentityDictionary()
		progress: 	nil
		maxClassIndex: 	nil
		currentClassIndex: 	nil

BlockClosure>>ensure:
	Receiver: [| newCategory oldCategory needNew force organization |
unsafe
		ifFalse: [(self validateS...etc...
	Arguments and temporary variables: 
		aBlock: 	[copyOfOldClass
		ifNotNil: [copyOfOldClass superclass removeSubclass: ...etc...
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 
ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariable...etc.
..
		startpc: 	348
		numArgs: 	0

ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:unsafe:
	Receiver: a ClassBuilder
	Arguments and temporary variables: 
		className: 	#AIDASite
		env: 	a SystemDictionary(lots of globals)
		newSuper: 	SwazooSite
		type: 	#normal
		instVarString: 	'style settings systemServices userServices timestamps
counters'...etc...
		classVarString: 	'Default Dialect Instance RandomGen
SloveneCharacters'
		poolString: 	''
		category: 	#'Aida-Core'
		unsafe: 	false
		oldClass: 	nil
		instVars: 	#('style' 'settings' 'systemServices' 'userServices'
'timestamps' 'co...etc...
		classVars: 	#(#Default #Dialect #Instance #RandomGen
#SloveneCharacters)
		copyOfOldClass: 	nil
		copyOfOldTraitComposition: 	nil
		copyOfOldClassTraitComposition: 	nil
		newClass: 	an Array(AIDASite)
	Receiver's instance variables: 
		environ: 	a SystemDictionary(lots of globals)
		classMap: 	nil
		instVarMap: 	an IdentityDictionary()
		progress: 	nil
		maxClassIndex: 	nil
		currentClassIndex: 	nil

ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:
	Receiver: a ClassBuilder
	Arguments and temporary variables: 
		className: 	#AIDASite
		env: 	a SystemDictionary(lots of globals)
		newSuper: 	SwazooSite
		type: 	#normal
		instVarString: 	'style settings systemServices userServices timestamps
counters'...etc...
		classVarString: 	'Default Dialect Instance RandomGen
SloveneCharacters'
		poolString: 	''
		category: 	#'Aida-Core'
	Receiver's instance variables: 
		environ: 	a SystemDictionary(lots of globals)
		classMap: 	nil
		instVarMap: 	an IdentityDictionary()
		progress: 	nil
		maxClassIndex: 	nil
		currentClassIndex: 	nil

MCClassDefinition>>createClass
	Receiver: a MCClassDefinition(AIDASite)
	Arguments and temporary variables: 
		superClass: 	SwazooSite
		class: 	nil
		composition: 	nil
	Receiver's instance variables: 
		name: 	#AIDASite
		superclassName: 	#SwazooSite
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(style)
a MCInsta...etc...
		category: 	#'Aida-Core'
		type: 	#normal
		comment: 	'AIDASite as the most important class is an Aida/Web website
with its ...etc...
		commentStamp: 	'<historical>'
		traitComposition: 	nil
		classTraitComposition: 	nil

MCClassDefinition>>load
	Receiver: a MCClassDefinition(AIDASite)
	Arguments and temporary variables: 
		class: 	nil
	Receiver's instance variables: 
		name: 	#AIDASite
		superclassName: 	#SwazooSite
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(style)
a MCInsta...etc...
		category: 	#'Aida-Core'
		type: 	#normal
		comment: 	'AIDASite as the most important class is an Aida/Web website
with its ...etc...
		commentStamp: 	'<historical>'
		traitComposition: 	nil
		classTraitComposition: 	nil

MCClassDefinition(MCDefinition)>>addMethodAdditionTo:
	Receiver: a MCClassDefinition(AIDASite)
	Arguments and temporary variables: 
		aCollection: 	an OrderedCollection(a MethodAddition a MethodAddition a
MethodAdd...etc...
	Receiver's instance variables: 
		name: 	#AIDASite
		superclassName: 	#SwazooSite
		variables: 	an OrderedCollection(a MCInstanceVariableDefinition(style)
a MCInsta...etc...
		category: 	#'Aida-Core'
		type: 	#normal
		comment: 	'AIDASite as the most important class is an Aida/Web website
with its ...etc...
		commentStamp: 	'<historical>'
		traitComposition: 	nil
		classTraitComposition: 	nil

[: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(AIDASite)
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary()
		additions: 	an OrderedCollection(a
MCOrganizationDefinition(#(#'Aida-Admin' #'Ai...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(AIDASite)
a MCClassD...etc...
		provisions: 	a Set(#UTF8DecomposedTextConverter
#PackageMethodNodeExample #Resou...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(AIDASite) a
MCClassDefinition(AIDASite) a MCMetho...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(AIDASite) a
MCClassDefinition(AIDASite) a M...etc...
		firstIndex: 	1
		lastIndex: 	207

OrderedCollection>>do:
	Receiver: an OrderedCollection(a MCClassDefinition(AIDASite) a
MCClassDefinition(AIDASite) a MCMetho...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(AIDASite) a
MCClassDefinition(AIDASite) a M...etc...
		firstIndex: 	1
		lastIndex: 	207

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

[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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		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(17039360)")
		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(17039360)")
		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(17039360)")
		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(17039360)")
		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(17039360)")
		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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		progressTitle: 	''

ProgressInitiationException>>display:at:from:to:during:
	Receiver: ProgressInitiationException: 
	Arguments and temporary variables: 
		argString: 	''
		argPoint: 	311 at 323
		argMinVal: 	0
		argMaxVal: 	207
		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: 	207
		minVal: 	0
		aPoint: 	311 at 323
		progressTitle: 	''

ProgressInitiationException class>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		aString: 	''
		aPoint: 	311 at 323
		minVal: 	0
		maxVal: 	207
		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: 	311 at 323
		minVal: 	0
		maxVal: 	207
		workBlock: 	[:bar | self
		do: [:each | 
			| newLabel |
			(count = 0
					or: ...etc...
	Receiver's instance variables: 
''

OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCClassDefinition(AIDASite) a
MCClassDefinition(AIDASite) a MCMetho...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	an Array(a MCClassDefinition(AIDASite) a
MCClassDefinition(AIDASite) a M...etc...
		firstIndex: 	1
		lastIndex: 	207

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

[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(#(#'Aida-Admin' #'Ai...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(AIDASite)
a MCClassD...etc...
		provisions: 	a Set(#UTF8DecomposedTextConverter
#PackageMethodNodeExample #Resou...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(#(#'Aida-Admin' #'Ai...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(AIDASite)
a MCClassD...etc...
		provisions: 	a Set(#UTF8DecomposedTextConverter
#PackageMethodNodeExample #Resou...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(#(#'Aida-Admin' #'Ai...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(AIDASite)
a MCClassD...etc...
		provisions: 	a Set(#UTF8DecomposedTextConverter
#PackageMethodNodeExample #Resou...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(#(#'Aida-Admin' #'Ai...etc...
		removals: 	an OrderedCollection()
		errorDefinitions: 	an OrderedCollection(a MCClassDefinition(AIDASite)
a MCClassD...etc...
		provisions: 	a Set(#UTF8DecomposedTextConverter
#PackageMethodNodeExample #Resou...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a
MethodAddition a Metho...etc...


--- The full stack ---
[:var | (self bindingOf: var) notNil
		ifTrue: [DuplicatedVariableError new variable: var;
				 signal: var , ' is defined elsewhere'.
			conflicts := true]] in AIDASite class(Class)>>declare:
Array(SequenceableCollection)>>do:
AIDASite class(Class)>>declare:
[| newCategory oldCategory needNew force organization |
unsafe
		ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass)
				ifFalse: [^ nil].
			(self
					validateInstvars: instVars
					from: oldClass
					forSuper: newSuper)
				ifFalse: [^ nil].
			(self
					validateClassvars: classVars
					from: oldClass
					forSuper: newSuper)
				ifFalse: [^ nil].
			(self
					validateSubclassFormat: type
					from: oldClass
					forSuper: newSuper
					extra: instVars size)
				ifFalse: [^ nil]].
	needNew := self
				needsSubclassOf: newSuper
				type: type
				instanceVariables: instVars
				from: oldClass.
	needNew
		ifNil: [^ nil].
	(needNew
			and: [unsafe not])
		ifTrue: [(self tooDangerousClasses includes: oldClass name)
				ifTrue: [self error: oldClass name , ' cannot be changed'].
			(oldClass ~~ nil
					and: [oldClass shouldNotBeRedefined])
				ifTrue: [self notify: oldClass name asText allBold , ' should not be
redefined. \Proceed to store over it.' withCRs]].
	needNew
		ifTrue: [newClass := self
						newSubclassOf: newSuper
						type: type
						instanceVariables: instVars
						from: oldClass.
			newClass
				ifNil: [^ nil].
			newClass setName: className]
		ifFalse: [newClass := oldClass].
	force := (newClass declare: classVarString)
				| (newClass sharing: poolString).
	newCategory := category asSymbol.
	organization := environ
				ifNotNil: [environ organization].
	oldClass isNil
		ifFalse: [oldCategory := (organization categoryOfElement: oldClass
name) asSymbol].
	organization classify: newClass name under: newCategory.
	newClass environment: environ.
	newClass := self
				recompile: force
				from: oldClass
				to: newClass
				mutate: false.
	(environ
			at: newClass name
			ifAbsent: [])
			== newClass
		ifFalse: [environ at: newClass name put: newClass.
			Smalltalk globals flushClassNameCache].
	copyOfOldTraitComposition
		ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition].
	copyOfOldClassTraitComposition
		ifNotNil: [newClass class setTraitComposition:
copyOfOldClassTraitComposition].
	newClass doneCompiling.
	oldClass isNil
		ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass
inCategory: newCategory.
			^ newClass].
	newCategory ~= oldCategory
		ifTrue: [SystemChangeNotifier uniqueInstance
				class: newClass
				recategorizedFrom: oldCategory
				to: category]
		ifFalse: [SystemChangeNotifier uniqueInstance
classDefinitionChangedFrom: copyOfOldClass to: newClass]] in
ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:unsafe:
BlockClosure>>ensure:
ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:unsafe:
ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c
lassVariableNames:poolDictionaries:category:
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:
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)>>loadPackageDi
rective: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)>>loadPackageDi
rective: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)>>loadPackageDi
rective:gofer:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadPackage
Directive:gofer:
MetacelloPackageLoadDirective>>loadUsing:gofer:
[:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL
oadDirective:gofer:
OrderedCollection>>do:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL
oadDirective:gofer:
MetacelloLinearLoadDirective>>loadUsing:gofer:
[:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL
oadDirective:gofer:
OrderedCollection>>do:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL
oadDirective:gofer:
MetacelloLinearLoadDirective>>loadUsing:gofer:
MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadWithPol
icy:
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:
MetacelloMCVersion>>load
ConfigurationOfAida class>>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
[textMorph editor evaluateSelection] in
PluggableShoutMorph(PluggableTextMorph)>>doIt
[result := editBlock value] in
PluggableShoutMorph(PluggableTextMorph)>>handleEdit:
TextMorphForEditView(TextMorph)>>handleEdit:
PluggableShoutMorph(PluggableTextMorph)>>handleEdit:
PluggableShoutMorph(PluggableTextMorph)>>doIt
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
PluggableShoutMorph(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:
PluggableShoutMorph(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




More information about the Pharo-project mailing list