DoWhatIMeanSupport.st
changeset 4282 94d7a67aa24f
parent 4281 05f2bc8ee7e4
child 4284 a0dd80311c40
--- a/DoWhatIMeanSupport.st	Fri Jul 19 20:48:18 2013 +0200
+++ b/DoWhatIMeanSupport.st	Sat Jul 20 11:08:09 2013 +0200
@@ -2919,7 +2919,7 @@
         bestSelectors2 := findBest value:parentNode value:selector2.
     ].
 
-    bestSelectors := bestSelectorsFromRB ? bestSelectors.
+    bestSelectors := (bestSelectorsFromRB ? #()) , bestSelectors.
 
     bestSelectors2 isEmptyOrNil ifTrue:[
         allBest := bestSelectors.
@@ -2984,9 +2984,11 @@
             idx == 0 ifTrue:[ ^ self].
             best := allBest at:idx.
         ] ifFalse:[
+            allBest remove:nil ifAbsent:[].
             best := Dialog request:'Matching selectors:' initialAnswer:best list:allBest.
 
         ]."
+        allBest remove:nil ifAbsent:[].
         best := self askUserForCompletion:'selector' for:codeView at: node selectorParts first start from:allBest.
         best isEmptyOrNil ifTrue:[^ self].
         best = '-' ifTrue:[^ self].
@@ -3440,10 +3442,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.105 2013-07-19 18:48:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.106 2013-07-20 09:08:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.105 2013-07-19 18:48:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.106 2013-07-20 09:08:09 cg Exp $'
 ! !