EditTextViewCompletionSupport.st
changeset 6828 7795234a7575
parent 6802 b6d0911d51e7
--- a/EditTextViewCompletionSupport.st	Thu Feb 20 10:10:39 2020 +0100
+++ b/EditTextViewCompletionSupport.st	Fri Feb 21 19:14:53 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2018 by eXept Software AG
               All Rights Reserved
@@ -221,6 +223,10 @@
     "/ (completionView notNil and:[completionView realized]) ifTrue:[^ self].
     editView hasSelection ifTrue:[^ self].
 
+    ch := editView characterAfterCursor.
+    "/ not when within a word
+    (ch notNil and:[ch isLetterOrDigit]) ifTrue:[^ self]. 
+
 false ifTrue:[
     ch := editView characterBeforeCursor.
     (ch notNil and:[ch isLetterOrDigitOrUnderline]) ifFalse:[