equal
deleted
inserted
replaced
188 ! |
188 ! |
189 |
189 |
190 process: delayed |
190 process: delayed |
191 |
191 |
192 |oldCode oldCodeList newCode elements cls mthd highlighterClasses| |
192 |oldCode oldCodeList newCode elements cls mthd highlighterClasses| |
|
193 "/ codeView topView class == DebugView ifTrue:[^ self]. |
193 |
194 |
194 done := false. |
195 done := false. |
195 modified := false. |
196 modified := false. |
196 codeView syntaxElements: nil. |
197 codeView syntaxElements: nil. |
197 codeView syntaxElementSelection: nil. |
198 codeView syntaxElementSelection: nil. |
204 cls := (Smalltalk at:cls theNonMetaclass name) class |
205 cls := (Smalltalk at:cls theNonMetaclass name) class |
205 ] ifFalse:[ |
206 ] ifFalse:[ |
206 cls := Smalltalk at:cls name |
207 cls := Smalltalk at:cls name |
207 ]. |
208 ]. |
208 ]. |
209 ]. |
209 mthd := codeView methodHolder value. |
210 mthd := codeView method. |
210 |
211 |
211 "textView" modified ifFalse:[ |
212 "textView" modified ifFalse:[ |
212 "/ bad bad bad: textView's list may change, while we copy!!!!!!!!!! |
213 "/ bad bad bad: textView's list may change, while we copy!!!!!!!!!! |
213 [ |
214 [ |
214 oldCodeList := textView list copy. |
215 oldCodeList := textView list copy. |
240 highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using:syntaxPreferences elementsInto: elements]. |
241 highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using:syntaxPreferences elementsInto: elements]. |
241 ] ifFalse:[ |
242 ] ifFalse:[ |
242 codeAspect == (SyntaxHighlighter codeAspectExpression) ifTrue:[ |
243 codeAspect == (SyntaxHighlighter codeAspectExpression) ifTrue:[ |
243 highlighterClasses do:[:e|newCode := e formatExpression:newCode in:cls elementsInto: elements]. |
244 highlighterClasses do:[:e|newCode := e formatExpression:newCode in:cls elementsInto: elements]. |
244 ] ifFalse:[ |
245 ] ifFalse:[ |
245 codeView codeAspect == #classDefinition ifTrue:[ |
246 codeAspect == (SyntaxHighlighter codeAspectClassDefinition) ifTrue:[ |
246 highlighterClasses do:[:e|newCode := e formatClassDefinition:newCode in:cls elementsInto: elements]. |
247 highlighterClasses do:[:e|newCode := e formatClassDefinition:newCode string in:cls elementsInto: elements]. |
247 ] |
248 ] |
248 ]. |
249 ]. |
249 ]. |
250 ]. |
250 ] |
251 ] |
251 ]. |
252 ]. |
280 ] |
281 ] |
281 ] |
282 ] |
282 |
283 |
283 "Modified: / 22-08-2011 / 14:17:47 / cg" |
284 "Modified: / 22-08-2011 / 14:17:47 / cg" |
284 "Created: / 24-01-2012 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
285 "Created: / 24-01-2012 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
286 "Modified: / 22-07-2013 / 13:33:40 / cg" |
285 ! |
287 ! |
286 |
288 |
287 setHighlightedCode:newCode elements: elements |
289 setHighlightedCode:newCode elements: elements |
288 "the background synhighlighter has generated new colored text, |
290 "the background synhighlighter has generated new colored text, |
289 with highlighted syntax. |
291 with highlighted syntax. |
379 ! ! |
381 ! ! |
380 |
382 |
381 !CodeHighlightingService class methodsFor:'documentation'! |
383 !CodeHighlightingService class methodsFor:'documentation'! |
382 |
384 |
383 version |
385 version |
384 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
386 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.46 2013-09-27 15:13:42 cg Exp $' |
385 ! |
387 ! |
386 |
388 |
387 version_CVS |
389 version_CVS |
388 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
390 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.46 2013-09-27 15:13:42 cg Exp $' |
389 ! |
391 ! |
390 |
392 |
391 version_HG |
393 version_HG |
392 |
394 |
393 ^ '$Changeset: <not expanded> $' |
395 ^ '$Changeset: <not expanded> $' |
394 ! |
396 ! |
395 |
397 |
396 version_SVN |
398 version_SVN |
397 ^ '$Id: Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
399 ^ '$Id: Tools__CodeHighlightingService.st,v 1.46 2013-09-27 15:13:42 cg Exp $' |
398 ! ! |
400 ! ! |
399 |
401 |