--- a/DoWhatIMeanSupport.st Thu Mar 06 15:29:14 2014 +0100
+++ b/DoWhatIMeanSupport.st Thu Mar 06 15:48:06 2014 +0100
@@ -3942,8 +3942,8 @@
!
codeCompletionForMessage:node inClass:classOrNil instance:instanceOrNil context:contextOrNil codeView:codeView
- |selector srchClass implClass
- bestSelectors selector2 bestSelectors2 bestSelectorsFromRB allBest best info numArgs
+ |selector
+ bestSelectors selector2 bestSelectors2 bestSelectorsFromRB allBest best numArgs
newParts nSelParts oldLen newLen selectorParts
findBest parentNode selectorInBest selector2InBest2
parser selectorsSentInCode selectorsImplementedInClass split
@@ -4142,24 +4142,22 @@
best = '-' ifTrue:[^ self].
].
-false ifTrue:[
- srchClass notNil ifTrue:[
- implClass := srchClass whichClassIncludesSelector:best.
- ] ifFalse:[
- implClass := Smalltalk allClasses select:[:cls | (cls includesSelector:best) or:[cls class includesSelector:best]].
- implClass size == 1 ifTrue:[
- implClass := implClass first.
- ] ifFalse:[
- implClass := nil
- ]
- ].
-
- info := best storeString.
- implClass notNil ifTrue:[
- info := implClass name , ' >> ' , info.
- ].
- self information:info.
-].
+"/ srchClass notNil ifTrue:[
+"/ implClass := srchClass whichClassIncludesSelector:best.
+"/ ] ifFalse:[
+"/ implClass := Smalltalk allClasses select:[:cls | (cls includesSelector:best) or:[cls class includesSelector:best]].
+"/ implClass size == 1 ifTrue:[
+"/ implClass := implClass first.
+"/ ] ifFalse:[
+"/ implClass := nil
+"/ ]
+"/ ].
+"/
+"/ info := best storeString.
+"/ implClass notNil ifTrue:[
+"/ info := implClass name , ' >> ' , info.
+"/ ].
+"/ self information:info.
best ~= selector ifTrue:[
numArgs := best numArgs.
@@ -4638,10 +4636,10 @@
!DoWhatIMeanSupport class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.204 2014-03-05 22:19:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.205 2014-03-06 14:48:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.204 2014-03-05 22:19:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.205 2014-03-06 14:48:06 cg Exp $'
! !