MethodAddition>>writeSourceToLog

MethodAddition>>createCompiledMethod

MCMethodDefinition>>addMethodAdditionTo:

[ :each | each addMethodAdditionTo: methodAdditions ] in MCPackageLoader>>basicLoadDefinitions in Block: [ :each | each addMethodAdditionTo: methodAddition...etc...

[ :each |

| newLabel |

"Special handling for first and last element"

(count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])

ifTrue: [

bar current: count.

oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])

ifFalse: [

bar label: newLabel.

ProgressNotification signal: '' extra: (oldLabel := newLabel) ].

lastUpdate := Time millisecondClockValue ].

aBlock value: each.

count := count + 1 ] in [ :bar |

labelBlock := aStringOrBlock isString

ifTrue: [

bar label: aStringOrBlock.

[ :dummyItem | aStringOrBlock ] ]

ifFalse: [ aStringOrBlock ].

self

do: [ :each |

| newLabel |

"Special handling for first and last element"

(count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])

ifTrue: [

bar current: count.

oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])

ifFalse: [

bar label: newLabel.

ProgressNotification signal: '' extra: (oldLabel := newLabel) ].

lastUpdate := Time millisecondClockValue ].

aBlock value: each.

count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every: in Block: [ :each | ...

OrderedCollection>>do:

[ :bar |

labelBlock := aStringOrBlock isString

ifTrue: [

bar label: aStringOrBlock.

[ :dummyItem | aStringOrBlock ] ]

ifFalse: [ aStringOrBlock ].

self

do: [ :each |

| newLabel |

"Special handling for first and last element"

(count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])

ifTrue: [

bar current: count.

oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])

ifFalse: [

bar label: newLabel.

ProgressNotification signal: '' extra: (oldLabel := newLabel) ].

lastUpdate := Time millisecondClockValue ].

aBlock value: each.

count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every: in Block: [ :bar | ...

BlockClosure>>cull:

[ result := block cull: self ] in [

self prepareForRunning.

[ result := block cull: self ]

on: JobNotification

do: [ :notification | notification handle: self ] ] in Job>>run in Block: [ result := block cull: self ]

BlockClosure>>on:do:

[

self prepareForRunning.

[ result := block cull: self ]

on: JobNotification

do: [ :notification | notification handle: self ] ] in Job>>run in Block: [ ...

BlockClosure>>ensure:

Job>>run

DummyUIManager(UIManager)>>displayProgress:from:to:during:

ByteString(String)>>displayProgressFrom:to:during:

OrderedCollection(Collection)>>do:displayingProgress:every:

OrderedCollection(Collection)>>do:displayingProgress:

Got startup errors:

MessageNotUnderstood: Unicode class>>isUnifiedKanji: