Tools__LintHighlighter.st
changeset 15811 e6f8c138b759
parent 15696 0f6aaa582319
child 15812 c28d134babcd
child 15823 682d7a61504c
equal deleted inserted replaced
15805:aa12f05014e6 15811:e6f8c138b759
   268 ! !
   268 ! !
   269 
   269 
   270 !LintHighlighter methodsFor:'markup'!
   270 !LintHighlighter methodsFor:'markup'!
   271 
   271 
   272 mark: text from: start to: end for: rule
   272 mark: text from: start to: end for: rule
       
   273     "this underwaves the rule's complaint"
       
   274 
   273     | emphasis |
   275     | emphasis |
   274 
   276 
   275     emphasis := self emphasisForSeverity: rule severity.
   277     emphasis := self emphasisForSeverity: rule severity.
   276     text emphasisFrom: start to: end add: emphasis.
   278     text emphasisFrom: start to: end add: emphasis.
   277     (rulesToIntervalsMap at: rule ifAbsentPut: [ Set new ])
   279     (rulesToIntervalsMap at: rule ifAbsentPut: [ Set new ])