#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Fri, 04 Nov 2016 16:11:51 +0100
changeset 17034 96c54689f887
parent 17033 4846dd7bafcd
child 17035 08beff53ae3e
#DOCUMENTATION by cg class: NewChangesBrowser comment/format in: #applyChange:
NewChangesBrowser.st
--- 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