--- a/Tools__LintRuleDetail.st Mon May 09 21:47:57 2016 +0200
+++ b/Tools__LintRuleDetail.st Thu May 12 08:33:55 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
Copyright (c) 2009-2010 eXept Software AG
@@ -295,7 +293,7 @@
holder := BlockValue
with:[:h |
"/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue)
- (h ? '') displayString actionForAll:[ self browseLintRule ]
+ (h ? '') displayString asActionLinkTo:[ self browseLintRule ]
]
argument: self ruleHolder.
builder aspectAt:#ruleNameAspect put:holder.