Tools__LintRuleDetail.st
branchjv
changeset 16571 cf319f2e56d0
parent 15843 1c2cf683dbd2
parent 16526 1510e5d4c2ad
child 17379 028adf14bc05
--- 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.