--- a/DoWhatIMeanSupport.st Tue Sep 03 14:53:30 2013 +0200
+++ b/DoWhatIMeanSupport.st Tue Sep 03 15:02:36 2013 +0200
@@ -2074,13 +2074,15 @@
codeCompletionForMethodSpec:node into:actionBlock
"completion in a method's selector pattern"
- |crsrPos
+ |crsrPos crsrLine crsrCol
selectorSoFar matchingSelectors
selectors distances best rest
allExistingMethods nameBag namesByCount selectors1 selectors2
editAction argNames|
- "/ Transcript showCR:'m'.
+ "/ Transcript showCR:'m'.
+ crsrLine := codeView cursorLine.
+ crsrCol := codeView cursorCol.
crsrPos := codeView characterPositionOfCursor - 1.
selectorSoFar := ''.
@@ -2187,13 +2189,10 @@
[:selectedCompletionIndex |
best := selectors at:selectedCompletionIndex.
- rest := best copyFrom:selectorSoFar size.
+ rest := best copyFrom:selectorSoFar size + 1.
codeView
- undoableDo:[
- codeView
- replaceFromCharacterPosition:crsrPos+1
- to:crsrPos+1
- with:rest
+ undoableDo:[
+ codeView insertString:rest atLine:crsrLine col:crsrCol.
]
info:'Completion'.
codeView cursorToCharacterPosition:(crsrPos+1 + rest size - 1).
@@ -3807,10 +3806,10 @@
!DoWhatIMeanSupport class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.141 2013-09-03 12:53:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.142 2013-09-03 13:02:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.141 2013-09-03 12:53:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.142 2013-09-03 13:02:36 cg Exp $'
! !