#DOCUMENTATION by cg cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Fri, 23 Dec 2016 11:56:17 +0100
branchcvs_MAIN
changeset 1009 79aa4f093313
parent 1007 60cc13ef0a9c
child 1010 487ba1856c8e
#DOCUMENTATION by cg class: SmallSense::Manager comment/format in: #delayedUpdateInfoForClass:
SmallSense__Manager.st
--- a/SmallSense__Manager.st	Fri Dec 09 13:45:14 2016 +0100
+++ b/SmallSense__Manager.st	Fri Dec 23 11:56:17 2016 +0100
@@ -243,40 +243,40 @@
     info isErrorneous ifTrue:[ ^ self ].
     info seqno: seqno.
     [
-	instVarNames := class allInstVarNames.
-	instVarTypes := instVarNames collect: [:instvar | info infoForInstvar: instvar ].
-	"/ Check for the source stream - if none, then do not add methods (one cannot
-	"/ infer types without a source anyway  and mark the class errorneous...
-	[
-	    sourceStream := class sourceStream.
-	] on: Error do:[
-	    sourceStream := nil.
-	].
-	sourceStream isNil ifTrue:[
-	    info errorneous: true.
-	    ^ self.
-	].
-	class methodsDo:[:mthd|updater add:mthd].
+        instVarNames := class allInstVarNames.
+        instVarTypes := instVarNames collect: [:instvar | info infoForInstvar: instvar ].
+        "/ Check for the source stream - if none, then do not add methods (one cannot
+        "/ infer types without a source anyway  and mark the class errorneous...
+        [
+            sourceStream := class sourceStream.
+        ] on: Error do:[
+            sourceStream := nil.
+        ].
+        sourceStream isNil ifTrue:[
+            info errorneous: true.
+            ^ self.
+        ].
+        class methodsDo:[:mthd|updater add:mthd].
 
-	probe := [:instance |
-	    instVarTypes withIndexDo: [:instVarType :i |
-		instVarType union: ((Type withClass: (instance instVarAt: i) class) type trustfullness: 70).
-	    ].
-	    nprobed := nprobed + 1.
-	    nprobed > 100 ifTrue:[
-		"/ Probe at most 100 instancess
-		^ self
-	    ].
-	].
-	nprobed := 0.
-	class allInstancesDo: probe.
-	"/ Maube an abstract class?
-	nprobed < 100 ifTrue:[
-	    class allSubInstancesDo: probe
-	].
+        probe := [:instance |
+            instVarTypes withIndexDo: [:instVarType :i |
+                instVarType union: ((Type withClass: (instance instVarAt: i) class) type trustfullness: 70).
+            ].
+            nprobed := nprobed + 1.
+            nprobed > 100 ifTrue:[
+                "/ Probe at most 100 instancess
+                ^ self
+            ].
+        ].
+        nprobed := 0.
+        class allInstancesDo: probe.
+        "/ Maybe an abstract class?
+        nprobed < 100 ifTrue:[
+            class allSubInstancesDo: probe
+        ].
     ] on: Error do:[:ex |
-	info errorneous: true.
-	Logger error:'Error when infering instvars for %1: %2' with: class name with: ex description
+        info errorneous: true.
+        Logger error:'Error when infering instvars for %1: %2' with: class name with: ex description
     ]
 
     "Created: / 27-11-2011 / 18:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"