--- a/Tools__LintAnnotation.st	Thu Dec 04 18:39:35 2014 +0100
+++ b/Tools__LintAnnotation.st	Thu Dec 04 18:39:44 2014 +0100
@@ -127,13 +127,24 @@
     ^ (self < aMagnitude) not
 ! !
 
+!LintAnnotation methodsFor:'help'!
+
+helpTextFor:aView
+    rule notNil ifTrue:[
+        ^ aView resources 
+                stringWithCRs:'Lint says: %1' "/ 'Lint says: %1\Click for more info.' 
+                with:(aView resources string:rule name).
+    ].
+    ^ nil
+! !
+
 !LintAnnotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.1 2014-02-05 18:59:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.2 2014-12-04 17:39:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.1 2014-02-05 18:59:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.2 2014-12-04 17:39:44 cg Exp $'
 ! !