--- a/Workspace.st	Fri Aug 30 13:38:39 2013 +0200
+++ b/Workspace.st	Fri Aug 30 13:38:58 2013 +0200
@@ -25,7 +25,7 @@
 !
 
 Object subclass:#CodeCompletionService
-	instanceVariableNames:'completionView editView'
+	instanceVariableNames:'completionView completionProcess editView state'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:Workspace
@@ -2217,13 +2217,6 @@
         self updateCompletionList.
         ^ self
     ].
-!
-
-postKeyPress:key x:x y:y
-    (key == #BackSpace or:[key == #BasicBackspace]) ifTrue:[
-        self updateCompletionList.
-        ^ self
-    ].
 ! !
 
 !Workspace::CodeCompletionService methodsFor:'private'!
@@ -2240,13 +2233,13 @@
 updateCompletionList
    |suggestions actions pos topView anyFound|
 
-"/ unfinished...
-
-    UserPreferences current immediateCodeCompletion ifFalse:[^ self].
-
-    (editView sensor hasKeyPressEventFor:nil) ifTrue:[ self closeCompletionView. ^ self].
-
-"/        ^ self.
+    "/ unfinished...
+
+    (editView sensor hasKeyPressEventFor:nil) ifTrue:[ 
+        self closeCompletionView. 
+        ^ self
+    ].
+
     UserInformation ignoreIn:[
         anyFound := false.
         DoWhatIMeanSupport 
@@ -2275,34 +2268,34 @@
     pos := pos + (20 @ (editView font height)).
     "/ suggestions := #( 'foo' 'bar' 'baz').
 
-"/    completionView isNil ifTrue:[
-"/        completionView := MenuView "SelectionInListView" new.
-"/        topView := CodeCompletionHelpView with:completionView.
-"/        topView origin:pos.
-"/        topView openAndWait.
-"/    ].
-
-"/    completionView list:suggestions. 
-"/    completionView extent:completionView preferredExtentForContents.
-"/    completionView action:
-"/        [:index | 
-"/            completionView notNil ifTrue:[
-"/                completionView topView destroy. 
-"/                completionView := nil
-"/            ].
-"/            actions notNil ifTrue:[
-"/                actions isBlock ifTrue:[
-"/                    actions value:index
-"/                ] ifFalse:[
-"/                    (actions at:index) value
-"/                ].
-"/            ].
-"/        ].
-
-"/    completionView topView
-"/        resizeToFit;
-"/        origin:pos;
-"/        raise.
+    completionView isNil ifTrue:[
+        completionView := MenuView "SelectionInListView" new.
+        topView := CodeCompletionHelpView with:completionView.
+        topView origin:pos.
+        topView openAndWait.
+    ].
+
+    completionView list:suggestions. 
+    completionView extent:completionView preferredExtentForContents.
+    completionView action:
+        [:index | 
+            completionView notNil ifTrue:[
+                completionView topView destroy. 
+                completionView := nil
+            ].
+            actions notNil ifTrue:[
+                actions isBlock ifTrue:[
+                    actions value:index
+                ] ifFalse:[
+                    (actions at:index) value
+                ].
+            ].
+        ].
+
+    completionView topView
+        resizeToFit;
+        origin:pos;
+        raise.
 
 "/    self halt.
 "/
@@ -2316,10 +2309,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.275 2013-08-30 11:19:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.276 2013-08-30 11:38:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.275 2013-08-30 11:19:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.276 2013-08-30 11:38:58 cg Exp $'
 ! !