--- a/SmallSense__EditSupport.st	Mon Feb 03 16:18:09 2014 +0100
+++ b/SmallSense__EditSupport.st	Fri Feb 07 09:30:02 2014 +0100
@@ -3,8 +3,8 @@
 "{ NameSpace: SmallSense }"
 
 Object subclass:#EditSupport
-	instanceVariableNames:'service textView backspaceIsUndo completionController snippets
-		ignoreKeystrokes ignoreKeystrokesPosition'
+	instanceVariableNames:'service codeView textView backspaceIsUndo completionController
+		snippets ignoreKeystrokes ignoreKeystrokesPosition'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Services'
@@ -35,9 +35,10 @@
 !EditSupport methodsFor:'accessing'!
 
 codeView
-    ^ textView
+    ^ codeView
 
     "Created: / 21-01-2014 / 23:13:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-02-2014 / 23:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 language
@@ -48,6 +49,12 @@
 
 service
     ^ service
+!
+
+textView
+    ^ textView
+
+    "Created: / 03-02-2014 / 23:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport methodsFor:'accessing-classes'!
@@ -290,12 +297,13 @@
 
 initializeForService:aSmallSenseService
     service := aSmallSenseService.
+    codeView := aSmallSenseService codeView.
     textView := aSmallSenseService textView.
     backspaceIsUndo := false.
     self initializeCompletion.
 
     "Created: / 27-09-2013 / 13:19:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-10-2013 / 17:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-02-2014 / 23:28:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport methodsFor:'private'!