--- 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 $'
! !