--- a/SmallSense__CriticsWindow.st	Mon May 09 10:09:22 2016 +0200
+++ b/SmallSense__CriticsWindow.st	Tue May 10 11:17:03 2016 +0200
@@ -277,11 +277,7 @@
 !
 
 disableRuleString
-
-
-    ^ ('Disable this Rule'
-        withColor: Color blue)
-        actionForAll:[ self disableLintRule]
+    ^ 'Disable this Rule' asActionLinkTo:[ self disableLintRule]
 !
 
 ruleHolder
@@ -331,10 +327,9 @@
                                 |anchor|
 
                                 "/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue)
-                                anchor :=
-                                        (('Browse Rule Class (',each class name,')' "displayString")
-                                            withColor: Color blue)
-                                                actionForAll:[ self browseLintRule:each ].
+                                anchor := ('Browse Rule Class (%1)' 
+                                            bindWith:each class name)
+                                                asActionLinkTo:[ self browseLintRule:each ].
                                 text := text , anchor.
                             ]
                             separatedBy:[