equal
deleted
inserted
replaced
219 |a html rule| |
219 |a html rule| |
220 |
220 |
221 a := self annotationAtLine:aLineNr. |
221 a := self annotationAtLine:aLineNr. |
222 a notNil ifTrue:[ |
222 a notNil ifTrue:[ |
223 (rule := a rule) notNil ifTrue:[ |
223 (rule := a rule) notNil ifTrue:[ |
224 ^ 'Lint says: ',rule name. |
224 ^ 'Lint says: ',rule infoInToolTip. |
225 "/ html := String streamContents:[:s| |
225 "/ html := String streamContents:[:s| |
226 "/ s |
226 "/ s |
227 "/ nextPutAll: '<html>'; |
227 "/ nextPutAll: '<html>'; |
228 "/ nextPutAll: rule name; |
228 "/ nextPutAll: rule name; |
229 "/ nextPutAll:'<P>'; |
229 "/ nextPutAll:'<P>'; |
314 ! ! |
314 ! ! |
315 |
315 |
316 !LintService class methodsFor:'documentation'! |
316 !LintService class methodsFor:'documentation'! |
317 |
317 |
318 version |
318 version |
319 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.13 2014-12-24 13:43:19 cg Exp $' |
319 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $' |
320 ! |
320 ! |
321 |
321 |
322 version_CVS |
322 version_CVS |
323 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.13 2014-12-24 13:43:19 cg Exp $' |
323 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $' |
324 ! ! |
324 ! ! |
325 |
325 |