class: Tools::CodeView2
authorClaus Gittinger <cg@exept.de>
Sun, 01 Sep 2013 00:34:01 +0200
changeset 13446 6706ae64f638
parent 13445 72f632746eb4
child 13447 048e3bd915e2
class: Tools::CodeView2 changed: #codeCompletion
Tools__CodeView2.st
--- a/Tools__CodeView2.st	Sun Sep 01 00:32:36 2013 +0200
+++ b/Tools__CodeView2.st	Sun Sep 01 00:34:01 2013 +0200
@@ -1771,10 +1771,7 @@
 !CodeView2 methodsFor:'private'!
 
 codeCompletion
-    |cls 
-"/     crsrPos interval node checkedNode
-"/     char start stop selectorSoFar matchingSelectors
-    |
+    |cls|
 
 
     cls := self classHolder value.
@@ -1787,54 +1784,11 @@
         ex proceed.
     ] do:[
         self withWaitCursorDo:[
-            DoWhatIMeanSupport codeCompletionForClass:cls codeView:self.
+            DoWhatIMeanSupport codeCompletionForClass:cls context:nil codeView:self.
         ]
     ].
     ^ 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"
     "Modified: / 16-02-2010 / 10:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -3660,15 +3614,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.114 2013-08-30 22:56:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.114 2013-08-30 22:56:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.114 2013-08-30 22:56:42 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $'
 ! !