#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Thu, 02 Jun 2016 11:29:46 +0200
changeset 5125 63cf17a5b720
parent 5123 92455fb1f46f
child 5126 a6b40292f912
child 5127 bdd70bb582e2
#OTHER by cg class: DoWhatIMeanSupport changed: #addClassesOfInstVarNamed:inClass:to:
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Wed Jun 01 15:02:16 2016 +0200
+++ b/DoWhatIMeanSupport.st	Thu Jun 02 11:29:46 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2349,7 +2351,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -4980,7 +4982,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 
@@ -5683,7 +5685,10 @@
             |tree code visitor|
 
             "/ quick check
-            code := m source.
+            SourceCodeManagerError handle:[:ex |
+            ] do:[    
+                code := m source.
+            ].
             (code notNil and:[code includesString:varName]) ifTrue:[
                 tree := Parser parse:code class:eachClass.
                 (tree notNil and:[tree ~~ #Error]) ifTrue:[