--- a/SmallSense__SmalltalkLintService.st	Thu Aug 29 23:25:46 2019 +0200
+++ b/SmallSense__SmalltalkLintService.st	Fri Aug 30 10:42:28 2019 +0200
@@ -237,19 +237,24 @@
 !SmalltalkLintService methodsFor:'event handling'!
 
 buttonPress:button x:x y:y in:view
+    "Handles an event in given view (a subview of codeView).
+     If the method returns true, it has eaten the event and it will not be processed
+     by the view or other services.
+     Notice, that this is called both for events in the gutter AND for events in the text."
+
     |lineNr|
 
     rules isNil ifTrue:[
-	^ false
+        ^ false
     ].
     view == gutterView ifTrue:[
-	button == 1 ifTrue:[
-	    lineNr := textView yVisibleToLineNr:y.
-	    lineNr notNil ifTrue:[
-		^ self showInfoWindowForLine: lineNr
-	    ].
-	    ^ false.
-	].
+        button == 1 ifTrue:[
+            lineNr := textView yVisibleToLineNr:y.
+            lineNr notNil ifTrue:[
+                ^ self showInfoWindowForLine: lineNr
+            ].
+            ^ false.
+        ].
     ].
     ^ false
 
@@ -392,7 +397,7 @@
                             "/ Transcript topView raiseDeiconified.
                             "/ Transcript showCR:'ParseError: ', ex description.
                             errMsg := ex description asStringCollection first asString.
-                            self showInfo:(('Smalltalk Lint: ',errMsg) withColor:Color red).
+                            self showInfo:(('Smalltalk Lint: ',errMsg) allRed).
                         ] do:[
                             env := (SmallSense::SmalltalkUnacceptedMethodEnvironment onClass:cls methodSource: oldCode).
                             rules rejectRules:[:rule | SmalltalkChecker isRuleDisabled:rule class].