--- a/Tools__CodeCompletionService.st	Mon Sep 02 13:53:47 2013 +0100
+++ b/Tools__CodeCompletionService.st	Wed Sep 04 11:33:19 2013 +0100
@@ -120,10 +120,7 @@
 !CodeCompletionService methodsFor:'private'!
 
 complete
-    |cls 
-"/     crsrPos interval node checkedNode
-"/     char start stop selectorSoFar matchingSelectors
-    |
+    |cls|
 
     codeView languageHolder value == SmalltalkLanguage instance   
         ifFalse:[^self].
@@ -138,54 +135,11 @@
         ex proceed.
     ] do:[
         codeView withWaitCursorDo:[
-            DoWhatIMeanSupport codeCompletionForClass:cls codeView:textView.
+            DoWhatIMeanSupport codeCompletionForClass:cls context:nil codeView:textView.
         ]
     ].
     ^ self.
 
-"/
-"/    interval := self selectedInterval.
-"/    interval isEmpty ifTrue:[
-"/        crsrPos := codeView characterPositionOfCursor - 1.
-"/        char := codeView characterUnderCursor.
-"/        [crsrPos > 1 and:[char isSeparator or:['.' includes:char]]] whileTrue:[
-"/            crsrPos := crsrPos - 1.
-"/            char := codeView characterAtCharacterPosition:crsrPos.
-"/        ].
-"/        interval := crsrPos to:crsrPos.
-"/    ].
-"/
-"/    node := self findNodeForInterval:interval allowErrors:true.
-"/    [node isNil] whileTrue:[
-"/        "/ expand to the left ...
-"/        interval start > 1 ifFalse:[
-"/            self showInfo:'No parseNode found'.
-"/            ^ self.
-"/        ].
-"/        interval start:(interval start - 1).
-"/        node := self findNodeForInterval:interval allowErrors:true.
-"/    ].
-"/
-"/    node isVariable ifTrue:[
-"/        self codeCompletionForVariable:node inClass:cls.
-"/        ^ self.
-"/    ].
-"/
-"/    checkedNode := node.
-"/    [checkedNode notNil] whileTrue:[
-"/        checkedNode isMessage ifTrue:[
-"/            self codeCompletionForMessage:checkedNode inClass:cls.
-"/            ^ self
-"/        ].
-"/        checkedNode isMethod ifTrue:[
-"/            self codeCompletionForMethod:checkedNode inClass:cls.
-"/            ^ self.
-"/        ].
-"/        checkedNode := checkedNode parent.
-"/    ].
-"/
-"/    self showInfo:'Node is neither variable nor message.'.
-
     "Modified: / 04-07-2006 / 18:48:26 / fm"
     "Modified: / 20-11-2006 / 12:30:59 / cg"
     "Created: / 07-03-2010 / 09:37:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -194,7 +148,7 @@
 !CodeCompletionService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.8 2013-07-22 12:02:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.9 2013-08-31 22:32:36 cg Exp $'
 !
 
 version_HG
@@ -203,6 +157,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeCompletionService.st,v 1.8 2013-07-22 12:02:14 cg Exp $'
+    ^ '$Id: Tools__CodeCompletionService.st,v 1.9 2013-08-31 22:32:36 cg Exp $'
 ! !