Tools__LintAnnotation.st
changeset 15524 c317a60d78b5
parent 15292 bd889ce17f57
child 15566 184cea584be5
child 16298 d2b0b69d8bc7
--- 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 $'
 ! !