equal
deleted
inserted
replaced
195 |
195 |
196 string := text string. |
196 string := text string. |
197 rule result isParseTreeEnvironment ifTrue:[ |
197 rule result isParseTreeEnvironment ifTrue:[ |
198 formattingMethod ifTrue:[ |
198 formattingMethod ifTrue:[ |
199 rule result selectionIntervalsForSource: string tree: tree do: [:interval| |
199 rule result selectionIntervalsForSource: string tree: tree do: [:interval| |
200 interval notNil ifTrue:[ |
200 interval notEmptyOrNil ifTrue:[ |
201 self mark: text from: interval first to: interval last for: rule. |
201 (interval first == 1 and:[interval last == text size]) ifTrue:[ |
|
202 (OperatingSystem getLoginName = 'jv') ifTrue:[ |
|
203 Transcript showCR:'>> no meaningful selection interval for ' , rule printString. |
|
204 ]. |
|
205 ] ifFalse:[ |
|
206 self mark: text from: interval first to: interval last for: rule. |
|
207 ] |
202 ] |
208 ] |
203 ]. |
209 ]. |
204 ]. |
210 ]. |
205 ] ifFalse: [ |
211 ] ifFalse: [ |
206 | searches | |
212 | searches | |
247 ! ! |
253 ! ! |
248 |
254 |
249 !LintHighlighter class methodsFor:'documentation'! |
255 !LintHighlighter class methodsFor:'documentation'! |
250 |
256 |
251 version |
257 version |
252 ^ '$Id: Tools__LintHighlighter.st 7985 2012-04-21 08:36:31Z vranyj1 $' |
258 ^ '$Id: Tools__LintHighlighter.st 8047 2012-09-07 11:37:19Z vranyj1 $' |
253 ! |
259 ! |
254 |
260 |
255 version_CVS |
261 version_CVS |
256 ^ '§Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.5 2012/03/08 03:16:18 cg Exp §' |
262 ^ '§Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.5 2012/03/08 03:16:18 cg Exp §' |
257 ! |
263 ! |
258 |
264 |
259 version_SVN |
265 version_SVN |
260 ^ '$Id: Tools__LintHighlighter.st 7985 2012-04-21 08:36:31Z vranyj1 $' |
266 ^ '$Id: Tools__LintHighlighter.st 8047 2012-09-07 11:37:19Z vranyj1 $' |
261 ! ! |
267 ! ! |