SyntaxHighlighter.st
changeset 2816 e8b84f6d7462
parent 2811 88582e700b37
child 2892 da6e12d0b4e4
--- a/SyntaxHighlighter.st	Tue Feb 14 15:47:11 2012 +0100
+++ b/SyntaxHighlighter.st	Tue Feb 14 16:05:54 2012 +0100
@@ -594,7 +594,18 @@
         ] ifTrue:[
             (self controlFlowSelectors includesIdentical:selectorSymbol) ifTrue:[
                 em := preferences controlFlowSelectorEmphasis.
-                fg := preferences controlFlowSelectorColor.
+                fg := preferences controlFlowSelectorColor
+            ] ifFalse:[
+                (self collectionEnumerationSelectors includesIdentical:selectorSymbol) ifTrue:[
+                    em := preferences collectionEnumerationSelectorEmphasis.
+                    fg := preferences collectionEnumerationSelectorColor
+                ].
+            ].
+            em isNil ifTrue:[
+                em := preferences selectorEmphasis
+            ].
+            fg isNil ifTrue:[
+                fg := preferences selectorColor
             ].
         ].
     ].
@@ -603,7 +614,7 @@
         withEmphasis:em 
         color:fg
 
-    "Modified: / 08-09-2006 / 15:57:02 / cg"
+    "Modified: / 14-02-2012 / 16:03:52 / cg"
 !
 
 markSelfFrom:pos1 to:pos2
@@ -716,9 +727,9 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.65 2012-02-13 11:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.66 2012-02-14 15:05:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.65 2012-02-13 11:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.66 2012-02-14 15:05:54 cg Exp $'
 ! !