EditTextViewCompletionSupport.st
changeset 6734 e8d5a97c068c
parent 6722 e302ad05e8c1
child 6740 c5b2dda450d0
--- a/EditTextViewCompletionSupport.st	Thu Oct 31 10:26:45 2019 +0100
+++ b/EditTextViewCompletionSupport.st	Sat Nov 02 01:25:05 2019 +0100
@@ -80,6 +80,11 @@
 handleKeyPress:key x:x y:y
     "return true, if I have eaten this keypress"
 
+    <resource: #keyboard ( #'Control_L' #Ctrl #'Control_R' #Control 
+                           #Tab #CursorDown #CursorUp #CursorLeft #CursorRight #Return
+                           #Escape #BackSpace
+                           #'Shift_L' #'Shift_R' #Shift) >
+
     |ch eatCursorLeftOrRight eatCursorUpDown sensor|
 
     "/ completeImmediate := UserPreferences current immediateCodeCompletion.
@@ -177,6 +182,8 @@
 !
 
 postKeyPress:key
+    <resource: #keyboard ( #'BasicBackspace' #BackSpace)>
+
     |doComplete ch w|
 
     UserPreferences current immediateCodeCompletion ifFalse:[