--- a/Tools__LintHighlighter.st Wed May 04 21:08:27 2016 +0200
+++ b/Tools__LintHighlighter.st Wed May 04 21:14:56 2016 +0200
@@ -226,8 +226,8 @@
rule resultSelectionIntervalsForSource: string tree: tree in: class do: [:interval|
interval notEmptyOrNil ifTrue:[
(interval first == 1 and:[interval last == text size]) ifTrue:[
- (OperatingSystem getLoginName = 'jv') ifTrue:[
- Transcript showCR:'>> no meaningful selection interval for ' , rule printString.
+ self debuggingCodeFor:#jv is:[
+ Transcript showCR:'>> no meaningful selection interval for ' , rule printString.
].
] ifFalse:[
self mark: text from: interval first to: interval last for: rule.