Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__LintService.st
changeset 15103 bf2b44843c24
parent 15102 158d59b3ca69
child 15293 6d8bbfd2f7e1 
--- a/Tools__LintService.st	Fri Jan 23 13:53:12 2015 +0100
+++ b/Tools__LintService.st	Fri Jan 23 13:54:20 2015 +0100
@@ -216,12 +216,20 @@
 !LintService methodsFor:'help'!
 
 flyByHelpTextAtLine:aLineNr
-    |a html rule|
+    |a html rule info|
 
     a := self annotationAtLine:aLineNr.
     a notNil ifTrue:[
         (rule := a rule) notNil ifTrue:[
-            ^ 'Lint says: ',rule infoInToolTip.
+            rule isComposite ifTrue:[
+                info := Character cr ,
+                        ((rule rules collect:[:each | codeView resources string:each infoInToolTip] as:Set)
+                            asStringCollection asStringWith:Character cr). 
+            ] ifFalse:[
+                info := codeView resources string:rule infoInToolTip
+            ].
+            ^ 'Lint says: ',info.
+
 "/            html := String streamContents:[:s|
 "/                        s 
 "/                            nextPutAll: '<html>'; 
@@ -316,10 +324,10 @@
 !LintService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.15 2015-01-23 12:54:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.15 2015-01-23 12:54:20 cg Exp $'
 ! !
hg/stx-libtool