DoWhatIMeanSupport.st
changeset 4370 2569507c08b9
parent 4369 810a78e62f88
child 4371 95c3d2ba35d5
--- 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 $'
 ! !