--- a/NewChangesBrowser.st Fri Nov 04 16:09:44 2016 +0100
+++ b/NewChangesBrowser.st Fri Nov 04 16:11:51 2016 +0100
@@ -1968,56 +1968,56 @@
nm := self classNameOfChange:aChange.
nm notNil ifTrue:[
- |cls|
-
- cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
- cls notNil ifTrue:[
- cls isLoaded ifFalse:[
- cls autoload
- ]
- ]
+ |cls|
+
+ cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
+ cls notNil ifTrue:[
+ cls isLoaded ifFalse:[
+ cls autoload
+ ]
+ ]
].
applyAction := [
- |sig|
-
- (skipSignal notNil) ifTrue:[
- sig := skipSignal
- ] ifFalse:[
- sig := Object abortSignal
- ].
- sig catch:[
- |reader doItChunk methodsForChunk|
-
- "/ a followup methodsFor: chunk...
- aChange followUp ifTrue:[
- methodsForChunk := aChange chunk.
- ] ifFalse:[
- doItChunk := aStream nextChunk. "/ an empty chunk sometimes...
- doItChunk notEmpty ifTrue:[
- Compiler evaluate:doItChunk notifying:self.
- ] ifFalse:[
- methodsForChunk := aStream nextChunk. "/ the real one
- ]
- ].
- methodsForChunk notNil ifTrue:[
- Class methodRedefinitionSignal handle:[:ex |
- ex proceedWith:#keep
- ] do:[
- reader := Compiler evaluate:methodsForChunk notifying:self.
- reader fileInFrom:aStream notifying:self passChunk:false single:true.
- ]
- ]
- ].
+ |sig|
+
+ (skipSignal notNil) ifTrue:[
+ sig := skipSignal
+ ] ifFalse:[
+ sig := Object abortSignal
+ ].
+ sig catch:[
+ |reader doItChunk methodsForChunk|
+
+ "/ a followup methodsFor: chunk...
+ aChange followUp ifTrue:[
+ methodsForChunk := aChange chunk.
+ ] ifFalse:[
+ doItChunk := aStream nextChunk. "/ an empty chunk sometimes...
+ doItChunk notEmpty ifTrue:[
+ Compiler evaluate:doItChunk notifying:self.
+ ] ifFalse:[
+ methodsForChunk := aStream nextChunk. "/ the real one
+ ]
+ ].
+ methodsForChunk notNil ifTrue:[
+ Class methodRedefinitionSignal handle:[:ex |
+ ex proceedWith:#keep
+ ] do:[
+ reader := Compiler evaluate:methodsForChunk notifying:self.
+ reader fileInFrom:aStream notifying:self passChunk:false single:true.
+ ]
+ ]
+ ].
].
"/
- "/ if I am showing the changes file, dont update it
+ "/ if I am showing the changes file, don't update it
"/
changeFileName asFilename pathName = ObjectMemory nameForChanges asFilename pathName ifTrue:[
- Class withoutUpdatingChangesDo:applyAction
+ Class withoutUpdatingChangesDo:applyAction
] ifFalse:[
- applyAction value
+ applyAction value
].
aStream close