class: Tools::LintService
authorClaus Gittinger <cg@exept.de>
Fri, 23 Jan 2015 13:53:12 +0100
changeset 15102 158d59b3ca69
parent 15101 05cf28ac84ef
child 15103 bf2b44843c24
class: Tools::LintService changed: #flyByHelpTextAtLine: (send #infoInToolTip instead of #name) better tooltip help text
Tools__LintService.st
--- 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 $'
 ! !