--- a/WorkspaceCompletionSupport.st	Fri Aug 02 17:44:39 2019 +0200
+++ b/WorkspaceCompletionSupport.st	Fri Aug 02 17:44:54 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2013 by eXept Software AG
               All Rights Reserved
@@ -66,25 +64,6 @@
 
 !WorkspaceCompletionSupport methodsFor:'private'!
 
-computeAndShowCompletions
-    "compute completions, then push an event to show them"
-    
-    |completions|
-
-    completions := self computeCompletions.
-    completions notEmptyOrNil ifTrue:[
-        self assert:completions isArray.
-        self assert:completions size == 4.
-        editView sensor
-            pushUserEvent:#'suggestionsArrived:implementations:actions:autoSelect:'
-            for:self
-            withArguments:completions
-    ].
-
-    "Created: / 15-07-2019 / 17:29:54 / Claus Gittinger"
-    "Modified: / 24-07-2019 / 07:53:35 / Claus Gittinger"
-!
-
 computeCompletions
     "compute completions (but do not show them)"