#OTHER by cg
class: DoWhatIMeanSupport
changed: #addClassesOfInstVarNamed:inClass:to:
--- 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:[