--- a/Tools__LintAnnotation.st Wed Mar 11 06:56:44 2015 +0100
+++ b/Tools__LintAnnotation.st Thu Mar 19 12:04:03 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -76,9 +78,12 @@
rule notNil ifTrue:[
rule isComposite ifTrue:[
- info := ((rule rules
- collect:[:each | '- ',(aView resources string:each infoInToolTip)] as:Set)
- asStringCollection asStringWith:Character cr).
+ info := rule rules
+ collect:[:each | (aView resources string:each infoInToolTip)] as:Set.
+ info size > 1 ifTrue:[
+ info := info collect:[:each | '- ',each].
+ ].
+ info := info asStringCollection asStringWith:Character cr.
] ifFalse:[
info := aView resources string:rule infoInToolTip
].
@@ -107,10 +112,10 @@
!LintAnnotation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.5 2015-02-14 02:44:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.6 2015-03-19 11:04:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.5 2015-02-14 02:44:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintAnnotation.st,v 1.6 2015-03-19 11:04:03 cg Exp $'
! !