--- a/SmallSense__EditSupport.st	Tue Oct 01 09:38:56 2013 +0100
+++ b/SmallSense__EditSupport.st	Tue Oct 01 09:40:22 2013 +0100
@@ -16,6 +16,7 @@
 	privateIn:EditSupport
 !
 
+
 !EditSupport class methodsFor:'instance creation'!
 
 forLanguage: aProgrammingLanguage
@@ -200,9 +201,16 @@
 
 handleKeyPress:key x:x y:y
 
+    key == #Control_L ifTrue:[
+        completionView notNil ifTrue:[
+            ^ false.
+        ].
+    ].
+
     key == #CodeCompletion  ifTrue: [
         autoSelect := true.    
         self startCompletionProcess.
+        ^ true
     ].
 
     (key == #BackSpace or:[key == #BasicBackspace]) ifTrue:[
@@ -227,7 +235,7 @@
     ^ super handleKeyPress:key x:x y:y
 
     "Created: / 27-09-2013 / 15:38:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-09-2013 / 00:16:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2013 / 15:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 postKeyPress:key
@@ -260,6 +268,7 @@
     ].
 
     "Created: / 28-09-2013 / 00:21:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2013 / 14:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport::CompletionController methodsFor:'private'!
@@ -371,3 +380,10 @@
     "Created: / 27-09-2013 / 13:52:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!EditSupport class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+