equal
deleted
inserted
replaced
210 "/ Transcript showCR:'ParseError: ', ex description. |
210 "/ Transcript showCR:'ParseError: ', ex description. |
211 "/ self halt. |
211 "/ self halt. |
212 "/ self showInfo:(errMsg colorizeAllWith:Color red). |
212 "/ self showInfo:(errMsg colorizeAllWith:Color red). |
213 newCode := nil. |
213 newCode := nil. |
214 ] do:[ |
214 ] do:[ |
|
215 |codeAspect| |
|
216 |
215 elements := SortedCollection new. |
217 elements := SortedCollection new. |
216 newCode := oldCode asText. |
218 newCode := oldCode asText. |
217 codeView codeAspect == #method ifTrue:[ |
219 codeAspect := codeView codeAspect. |
|
220 codeAspect == SyntaxHighlighter codeAspectMethod ifTrue:[ |
218 highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using: nil elementsInto: elements]. |
221 highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using: nil elementsInto: elements]. |
219 ] ifFalse:[ |
222 ] ifFalse:[ |
220 codeView codeAspect == #expression ifTrue:[ |
223 codeAspect == (SyntaxHighlighter codeAspectExpression) ifTrue:[ |
221 highlighterClasses do:[:e|newCode := e formatExpression:newCode in:cls elementsInto: elements]. |
224 highlighterClasses do:[:e|newCode := e formatExpression:newCode in:cls elementsInto: elements]. |
222 ] ifFalse:[ |
225 ] ifFalse:[ |
223 codeView codeAspect == #classDefinition ifTrue:[ |
226 codeAspect == (SyntaxHighlighter codeAspectClassDefinition) ifTrue:[ |
224 highlighterClasses do:[:e|newCode := e formatClassDefinition:newCode string in:cls elementsInto: elements]. |
227 highlighterClasses do:[:e|newCode := e formatClassDefinition:newCode string in:cls elementsInto: elements]. |
225 ] |
228 ] |
226 ]. |
229 ]. |
227 ]. |
230 ]. |
228 ] |
231 ] |
256 ] |
259 ] |
257 ] |
260 ] |
258 |
261 |
259 "Modified: / 16-09-2011 / 17:01:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
262 "Modified: / 16-09-2011 / 17:01:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
260 "Created: / 24-01-2012 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
263 "Created: / 24-01-2012 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
261 "Modified: / 19-07-2012 / 16:37:24 / cg" |
264 "Modified: / 27-07-2012 / 22:23:16 / cg" |
262 ! |
265 ! |
263 |
266 |
264 setHighlightedCode:newCode elements: elements |
267 setHighlightedCode:newCode elements: elements |
265 "the background synhighlighter has generated new colored text, |
268 "the background synhighlighter has generated new colored text, |
266 with highlighted syntax. |
269 with highlighted syntax. |
339 ! ! |
342 ! ! |
340 |
343 |
341 !CodeHighlightingService class methodsFor:'documentation'! |
344 !CodeHighlightingService class methodsFor:'documentation'! |
342 |
345 |
343 version |
346 version |
344 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.34 2012-07-19 15:19:41 cg Exp $' |
347 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.35 2012-07-27 21:51:55 cg Exp $' |
345 ! |
348 ! |
346 |
349 |
347 version_CVS |
350 version_CVS |
348 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.34 2012-07-19 15:19:41 cg Exp $' |
351 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.35 2012-07-27 21:51:55 cg Exp $' |
349 ! |
352 ! |
350 |
353 |
351 version_SVN |
354 version_SVN |
352 ^ '§Id: Tools__CodeHighlightingService.st 7715 2011-04-10 16:32:58Z vranyj1 §' |
355 ^ '§Id: Tools__CodeHighlightingService.st 7715 2011-04-10 16:32:58Z vranyj1 §' |
353 ! ! |
356 ! ! |