--- a/Tools__CodeViewService.st	Mon Jul 22 14:02:14 2013 +0200
+++ b/Tools__CodeViewService.st	Mon Jul 22 14:02:16 2013 +0200
@@ -138,6 +138,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'!
@@ -400,10 +410,10 @@
 !CodeViewService class methodsFor:'documentation'!
 
 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_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 $'
 ! !