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
