--- a/EditTextViewCompletionSupport.st	Fri Nov 08 12:37:06 2013 +0100
+++ b/EditTextViewCompletionSupport.st	Fri Nov 08 15:10:35 2013 +0100
@@ -173,6 +173,14 @@
 
 !EditTextViewCompletionSupport methodsFor:'private'!
 
+computeCompletions
+    "Actually compute the completions and update the completion view."
+
+    self subclassResponsibility
+
+    "Created: / 26-09-2013 / 17:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 release
     self stopCompletionProcess.
     self closeCompletionView.
@@ -248,14 +256,6 @@
     ].
 !
 
-computeCompletions
-    "Actually compute the completions and update the completion view."
-
-    self subclassResponsibility
-
-    "Created: / 26-09-2013 / 17:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 openCompletionView
     "Opens the completion view with an initial list. Called as soon as
      completion is initiated but completion options are not yet computed."
@@ -283,18 +283,18 @@
         completionView list:list.
         completionView enable:false.
         completionView extent:completionView preferredExtentForContents.
-        completionView font: editView font.
+        "/ completionView font: editView font.
         topView := CodeCompletionHelpView with:completionView.
-        topView origin:movePos.
-        topView resizeToFit.
-        "/ topView open.
     ] ifFalse:[
         completionView list:list.
         topView := completionView topView.
-        topView ~~ completionView ifTrue:[
-            topView origin:movePos.
-            topView resizeToFit.
-        ]
+    ].
+    topView ~~ completionView ifTrue:[
+        topView resizeToFit.
+"/        movePos := editView device 
+"/                        translatePoint:((editView right - topView width) @ (editView top)) 
+"/                        fromView:editView toView:nil.
+        topView origin:movePos.
     ].
 
     "Created: / 26-09-2013 / 17:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -303,10 +303,10 @@
 !EditTextViewCompletionSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.5 2013-10-28 14:09:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.6 2013-11-08 14:10:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.5 2013-10-28 14:09:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextViewCompletionSupport.st,v 1.6 2013-11-08 14:10:35 cg Exp $'
 ! !