class: Tools::LintService
changed: #flyByHelpTextAtLine: (send #infoInToolTip instead of #name)
better tooltip help text
--- a/Tools__LintService.st Fri Jan 23 13:52:33 2015 +0100
+++ b/Tools__LintService.st Fri Jan 23 13:53:12 2015 +0100
@@ -221,7 +221,7 @@
a := self annotationAtLine:aLineNr.
a notNil ifTrue:[
(rule := a rule) notNil ifTrue:[
- ^ 'Lint says: ',rule name.
+ ^ 'Lint says: ',rule infoInToolTip.
"/ html := String streamContents:[:s|
"/ s
"/ nextPutAll: '<html>';
@@ -316,10 +316,10 @@
!LintService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.13 2014-12-24 13:43:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.13 2014-12-24 13:43:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.14 2015-01-23 12:53:12 cg Exp $'
! !