--- a/Tools__CodeCompletionService.st	Mon Jul 22 14:02:12 2013 +0200
+++ b/Tools__CodeCompletionService.st	Mon Jul 22 14:02:14 2013 +0200
@@ -91,6 +91,15 @@
     "Created: / 03-04-2011 / 23:08:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-07-2011 / 08:42:52 / cg"
     "Modified: / 27-07-2011 / 11:47:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isUsefulFor:aCodeView
+    "this filters useful services.
+     Redefined to return true for myself - not for subclasses"
+
+    ^ self == Tools::CodeCompletionService
+
+    "Created: / 22-07-2013 / 13:59:54 / cg"
 ! !
 
 !CodeCompletionService methodsFor:'event handling'!
@@ -185,10 +194,10 @@
 !CodeCompletionService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.7 2013-07-04 17:06:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.8 2013-07-22 12:02:14 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeCompletionService.st,v 1.7 2013-07-04 17:06:35 cg Exp $'
+    ^ '$Id: Tools__CodeCompletionService.st,v 1.8 2013-07-22 12:02:14 cg Exp $'
 ! !