DoWhatIMeanSupport.st
changeset 4374 c2c87c8465cd
parent 4373 93f9e6259b3a
child 4375 305981eb7976
--- a/DoWhatIMeanSupport.st	Tue Sep 03 21:01:28 2013 +0200
+++ b/DoWhatIMeanSupport.st	Tue Sep 03 21:23:52 2013 +0200
@@ -1104,11 +1104,6 @@
     classOrNil := classOrNilArg.
     codeView := codeViewArg.
 
-"/    classOrNil isNil ifTrue:[
-"/        self information:'No class'.
-"/        ^ self.
-"/    ].
-
     crsrPos := codeView characterPositionOfCursor"-1".
     char := codeView characterAtCharacterPosition:crsrPos.
     "/ Transcript show:crsrPos; show:' '; showCR:char.
@@ -1140,22 +1135,13 @@
     ].
     node isNil ifTrue:[
         node := self findNodeForInterval:interval in:source allowErrors:true mustBeMethod:false.   
-        "/ Transcript show:'nd2: '; showCR:node.
-    ].
-"/    [node isNil] whileTrue:[
-"/        "/ expand to the left ...
-"/        interval start > 1 ifFalse:[
-"/            self information:'No parseNode found'.
-"/            ^ self.
-"/        ].
-"/        interval start:(interval start - 1).
-"/        node := self findNodeForInterval:interval in:source allowErrors:true.
-"/    ].
-    node isNil ifTrue:[
-        Transcript showCR:'No parseNode found (syntax error before?)'.
-        self breakPoint:#cg.
-        self information:'No parseNode found (syntax error before?)'.
-        ^ self.
+        "/ Transcript show:'nd2 try: '; showCR:node.
+        node isNil ifTrue:[
+            "/ Transcript showCR:'No parseNode found (syntax error before or in comment?)'.
+            self breakPoint:#cg.
+            "/ self information:'No parseNode found (syntax error before or in comment?)'.
+            ^ self.
+        ]
     ].
 
     forceNewMessageSend := false.
@@ -3037,8 +3023,8 @@
     node isNil ifTrue:[
         node := self findNodeForInterval:interval in:source allowErrors:true mustBeMethod:false mustBeExpression:true.   
         node isNil ifTrue:[
-            Transcript showCR:'No parseNode found (syntax error before?)'.
-            self information:'No parseNode found (syntax error before?)'.
+            "/ Transcript showCR:'No parseNode found (syntax error before or in comment?)'.
+            self information:'No parseNode found (syntax error before or in comment?)'.
             ^ self.
         ].
     ].
@@ -3872,10 +3858,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.145 2013-09-03 19:01:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.146 2013-09-03 19:23:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.145 2013-09-03 19:01:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.146 2013-09-03 19:23:52 cg Exp $'
 ! !