--- a/SmallSense__CompletionContext.st	Tue Nov 19 13:02:56 2013 +0000
+++ b/SmallSense__CompletionContext.st	Wed Feb 26 19:06:00 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 Object subclass:#CompletionContext
-	instanceVariableNames:'node position codeView language'
+	instanceVariableNames:'node position support'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core'
@@ -22,11 +22,15 @@
 !CompletionContext methodsFor:'accessing'!
 
 codeView
-    ^ codeView
+    ^ support codeView
+
+    "Modified: / 21-01-2014 / 23:16:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 language
-    ^ language
+    ^ support language
+
+    "Modified: / 21-01-2014 / 23:16:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 node
@@ -35,18 +39,14 @@
 
 position
     ^ position
+!
+
+support
+    ^ support
 ! !
 
 !CompletionContext methodsFor:'initialization'!
 
-codeView:something
-    codeView := something.
-!
-
-language:something
-    language := something.
-!
-
 node:nd position: pos
 
     node := nd.
@@ -54,6 +54,12 @@
 
     "Created: / 26-11-2011 / 16:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 16-10-2013 / 23:31:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+support: anEditSupport
+    support := anEditSupport.
+
+    "Modified: / 21-01-2014 / 23:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CompletionContext methodsFor:'private'!
@@ -67,7 +73,7 @@
 
 wordBeforeCursorConsisitingOfCharactersMatching: characterMatchBlock
     | textView currentLine wordStart wordEnd |
-    textView := codeView.
+    textView := self codeView.
     textView isCodeView2 ifTrue:[textView := textView textView].
     currentLine := textView list at: textView cursorLine.
     currentLine isNil ifTrue:[ ^ '' ].
@@ -86,6 +92,7 @@
     ^ ''
 
     "Created: / 20-10-2013 / 00:17:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-01-2014 / 23:31:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CompletionContext methodsFor:'queries'!
@@ -119,6 +126,6 @@
 !
 
 version_SVN
-    ^ '$Id: SmallSensePosition.st 7823 2011-11-26 16:55:59Z vranyj1 $'
+    ^ '$Id: SmallSense__CompletionContext.st,v 1.2 2014/02/12 14:49:29 sr Exp $'
 ! !