--- a/Tools__CodeHighlightingService.st Thu Jul 04 21:28:45 2013 +0200
+++ b/Tools__CodeHighlightingService.st Thu Jul 04 21:28:47 2013 +0200
@@ -28,7 +28,7 @@
"{ NameSpace: Tools }"
BackgroundSourceProcessingService subclass:#CodeHighlightingService
- instanceVariableNames:''
+ instanceVariableNames:'syntaxPreferences'
classVariableNames:''
poolDictionaries:''
category:'Interface-CodeView'
@@ -76,6 +76,13 @@
!CodeHighlightingService methodsFor:'accessing'!
+preferences:preferences
+ "must be able to set those - otherwise, it uses a different coloring scheme in
+ expecco"
+
+ syntaxPreferences := preferences.
+!
+
syntaxHighlighter
| app lang highlighter |
@@ -217,7 +224,7 @@
newCode := oldCode asText.
codeAspect := codeView codeAspect.
codeAspect == SyntaxHighlighter codeAspectMethod ifTrue:[
- highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using: nil elementsInto: elements].
+ highlighterClasses do:[:e|newCode := e formatMethod:mthd source:newCode in:cls using:syntaxPreferences elementsInto: elements].
] ifFalse:[
codeAspect == (SyntaxHighlighter codeAspectExpression) ifTrue:[
highlighterClasses do:[:e|newCode := e formatStatementList:newCode in:cls elementsInto: elements].
@@ -343,14 +350,14 @@
!CodeHighlightingService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.40 2013-07-04 17:06:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.40 2013-07-04 17:06:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__CodeHighlightingService.st,v 1.40 2013-07-04 17:06:38 cg Exp $'
+ ^ '$Id: Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
! !