--- 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 $'
! !