# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1394117286 -3600
# Node ID 4cec3ca730ede3baaa108abeec26b78175d26379
# Parent  6045040e22d22fdb55f8157e04faa31d4fb9b201
class: DoWhatIMeanSupport
changed: #codeCompletionForMessage:inClass:instance:context:codeView:

diff -r 6045040e22d2 -r 4cec3ca730ed DoWhatIMeanSupport.st
--- 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 $'
 ! !