--- a/Tools__CodeViewService.st	Tue Jul 23 20:55:42 2013 +0100
+++ b/Tools__CodeViewService.st	Wed Jul 24 11:15:26 2013 +0100
@@ -149,6 +149,16 @@
     ].
 
     "Created: / 27-07-2011 / 11:49:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isUsefulFor:aCodeView
+    "this filters useful services.
+     must be redefined to return true in subclasses (but each class must do it only
+     for itself - not for subclasses"
+
+    ^ false
+
+    "Created: / 22-07-2013 / 13:58:49 / cg"
 ! !
 
 !CodeViewService class methodsFor:'registering'!
@@ -428,7 +438,7 @@
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.12 2013-07-04 17:06:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.13 2013-07-22 12:02:16 cg Exp $'
 !
 
 version_HG
@@ -437,6 +447,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeViewService.st,v 1.12 2013-07-04 17:06:49 cg Exp $'
+    ^ '$Id: Tools__CodeViewService.st,v 1.13 2013-07-22 12:02:16 cg Exp $'
 ! !