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

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@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@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@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@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@323
                progressTitle: ''

ProgressInitiationException>>display:at:from:to:during:
        Receiver: ProgressInitiationException:
        Arguments and temporary variables:
                argString: ''
                argPoint: 311@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@323
                progressTitle: ''

ProgressInitiationException class>>display:at:from:to:during:
        Receiver: ProgressInitiationException
        Arguments and temporary variables:
                aString: ''
                aPoint: 311@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@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