changed: #ruleNameAspect
authorClaus Gittinger <cg@exept.de>
Wed, 07 Sep 2011 04:54:47 +0200
changeset 10673 5e23775830ee
parent 10672 577f9967dda8
child 10674 351c90b0a00e
changed: #ruleNameAspect
Tools__LintRuleDetail.st
--- a/Tools__LintRuleDetail.st	Wed Sep 07 04:53:50 2011 +0200
+++ b/Tools__LintRuleDetail.st	Wed Sep 07 04:54:47 2011 +0200
@@ -281,14 +281,17 @@
 
     (holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[
         holder := BlockValue
-                    with:[:h | h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue) ]
+                    with:[:h | 
+                        "/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue) 
+                        h displayString actionForAll:[ self browseLintRule] 
+                    ]
                     argument: self ruleHolder.
         builder aspectAt:#ruleNameAspect put:holder.
     ].
     ^ holder.
 
     "Modified: / 05-02-2010 / 12:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-09-2011 / 04:49:20 / cg"
+    "Modified: / 07-09-2011 / 04:54:24 / cg"
 !
 
 ruleRationaleAspect
@@ -404,11 +407,11 @@
 !LintRuleDetail class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.9 2011-09-07 02:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.10 2011-09-07 02:54:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.9 2011-09-07 02:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.10 2011-09-07 02:54:47 cg Exp $'
 !
 
 version_SVN