equal
deleted
inserted
replaced
76 |
76 |
77 rule isNil ifTrue:[^ nil]. |
77 rule isNil ifTrue:[^ nil]. |
78 |
78 |
79 resources := self class classResources. |
79 resources := self class classResources. |
80 rule isComposite ifTrue:[ |
80 rule isComposite ifTrue:[ |
|
81 "/ sigh - must collect here, because lint does not know about my resources. |
81 info := rule rules |
82 info := rule rules |
82 collect:[:each | |
83 collect:[:each | |
83 (resources string:each infoInToolTip) |
84 (resources string:each infoInToolTip) |
84 ] as:Set. |
85 ] as:Set. |
85 info size > 1 ifTrue:[ |
86 info size > 1 ifTrue:[ |
89 ] ifFalse:[ |
90 ] ifFalse:[ |
90 info := resources string:rule infoInToolTip |
91 info := resources string:rule infoInToolTip |
91 ]. |
92 ]. |
92 info isEmptyOrNil ifTrue:[^ nil]. |
93 info isEmptyOrNil ifTrue:[^ nil]. |
93 ^ resources |
94 ^ resources |
94 stringWithCRs:(('Lint says (click on icon for details):' withColor:#gray),'\%1') "/ 'Lint says: %1\Click for more info.' |
95 stringWithCRs:(('Lint says (click on icon for details):\' withColor:#gray),'\%1') "/ 'Lint says: %1\Click for more info.' |
95 with:info. |
96 with:info. |
96 ! ! |
97 ! ! |
97 |
98 |
98 !LintAnnotation methodsFor:'printing & storing'! |
99 !LintAnnotation methodsFor:'printing & storing'! |
99 |
100 |