EditTextView.st
branchjv
changeset 5395 fc9336b15c5c
parent 5389 940dcf5485be
parent 5394 bd2329beafbc
child 5403 569378fb6c8e
--- a/EditTextView.st	Thu Jul 30 06:49:25 2015 +0200
+++ b/EditTextView.st	Sun Aug 09 07:20:03 2015 +0100
@@ -1325,7 +1325,10 @@
 !
 
 at:lineNr put:aLine
-    (self at:lineNr) = aLine ifFalse:[
+    |oldLine|
+
+    oldLine := (self at:lineNr) ? ''.
+    (oldLine sameStringAndEmphasisAs: (aLine? '')) ifFalse:[
         super at:lineNr put:aLine.
         self textChanged
     ].
@@ -5020,11 +5023,13 @@
             self initializeCompletionSupport.
         ].
     ].
+    
     "/ JV: why setting it to nil here?
 "/    ifFalse:[
 "/        completionService := nil
 "/    ].
     completionSupport notNil ifTrue:[
+        completionSupport stopCompletionProcess.
         (completionSupport handleKeyPress:key x:x y:y) ifTrue:["eaten" ^ self].
     ].
 
@@ -5097,7 +5102,9 @@
 "/          ].
         ].
         true "immediateCompletion" ifTrue:[ 
-            completionSupport notNil ifTrue:[ completionSupport postKeyPress:key].
+            completionSupport notNil ifTrue:[ 
+                completionSupport postKeyPress:key
+            ].
         ].
         ^ self
     ].