--- a/Tools__LintAnnotation.st Mon May 16 12:37:21 2016 +0200
+++ b/Tools__LintAnnotation.st Mon May 16 13:29:34 2016 +0200
@@ -78,6 +78,7 @@
resources := self class classResources.
rule isComposite ifTrue:[
+ "/ sigh - must collect here, because lint does not know about my resources.
info := rule rules
collect:[:each |
(resources string:each infoInToolTip)
@@ -91,7 +92,7 @@
].
info isEmptyOrNil ifTrue:[^ nil].
^ resources
- stringWithCRs:(('Lint says (click on icon for details):' withColor:#gray),'\%1') "/ 'Lint says: %1\Click for more info.'
+ stringWithCRs:(('Lint says (click on icon for details):\' withColor:#gray),'\%1') "/ 'Lint says: %1\Click for more info.'
with:info.
! !