--- a/AbstractSyntaxHighlighter.st	Wed Jul 24 21:33:34 2013 +0200
+++ b/AbstractSyntaxHighlighter.st	Thu Jul 25 02:38:32 2013 +0200
@@ -264,6 +264,97 @@
     "Modified: / 28-04-2010 / 13:02:11 / cg"
 ! !
 
+!AbstractSyntaxHighlighter class methodsFor:'misc'!
+
+collectionEnumerationSelectors
+    "these are considered wellknown, builtin selectors of very common
+     collection enumeration methods. 
+     These are optionally shown with another color (dark green)"
+
+    ^ #(
+        collect: 
+        select:
+        inject:into:
+        count:
+        collect:thenSelect:
+        select:thenCollect:
+    )
+
+    "Created: / 14-02-2012 / 15:56:59 / cg"
+!
+
+controlFlowSelectors
+    "these are considered wellknown, builtin selectors of very common
+     control flow constructs. Correspond to syntax or special forms in other
+     languages. These are optionally shown with another color (blue)"
+
+    ^ #(
+        ifTrue: ifFalse:
+        ifTrue:ifFalse: ifFalse:ifTrue:
+        ifNil: ifNotNil:
+        ifNil:ifNotNil: ifNotNil:ifNil:
+        and: or:
+
+        whileTrue:
+        whileFalse:
+
+        to:do:
+        downTo:do:
+        to:by:do:
+
+        loop
+        whileTrue
+        whileFalse
+        doWhile:
+        doUntil:
+
+        do:
+        doWithIndex:
+        pairWiseDo:
+        keysAndValuesDo:
+
+        withPriority:do:
+        handle:do:
+        on:do:
+        catch:
+        ignoreIn:
+
+        "/ newProcess
+        fork:
+        ensure:
+        ifCurtailed:
+        valueOnUnwindDo:
+        valueNowOrOnUnwindDo:
+
+        caseOf:
+        caseOf:otherwise:
+    )
+
+    "Created: / 08-09-2006 / 15:56:47 / cg"
+!
+
+debugSelectors
+    "these are considered harmful, selectors for debugging. 
+     These are optionally shown with another color (red)"
+
+    ^ #(
+        halt halt:
+    )
+!
+
+errorRaisingSelectors
+    "these are error raisers. 
+     These are optionally shown with another color (red)"
+
+    ^ #(
+        error error:
+        raise raiseRequest:
+        raiseErrorString: raiseRequestErrorString:
+        raiseWith: raiseRequestWith:
+        raiseWith:errorString: raiseRequestWith:errorString:
+    )
+! !
+
 !AbstractSyntaxHighlighter class methodsFor:'utilities'!
 
 mark:sourceText from:pos1 to:pos2 withAddedEmphasis:addedEmphasis
@@ -404,79 +495,15 @@
 !AbstractSyntaxHighlighter methodsFor:'misc'!
 
 collectionEnumerationSelectors
-    "these are considered wellknown, builtin selectors of very common
-     collection enumeration methods. 
-     These are optionally shown with another color (dark green)"
-
-    ^ #(
-        collect: 
-        select:
-        inject:into:
-        count:
-        collect:thenSelect:
-        select:thenCollect:
-    )
-
-    "Created: / 14-02-2012 / 15:56:59 / cg"
+    ^ self class collectionEnumerationSelectors
 !
 
 controlFlowSelectors
-    "these are considered wellknown, builtin selectors of very common
-     control flow constructs. Correspond to syntax or special forms in other
-     languages. These are optionally shown with another color (blue)"
-
-    ^ #(
-        ifTrue: ifFalse:
-        ifTrue:ifFalse: ifFalse:ifTrue:
-        ifNil: ifNotNil:
-        ifNil:ifNotNil: ifNotNil:ifNil:
-        and: or:
-
-        whileTrue:
-        whileFalse:
-
-        to:do:
-        downTo:do:
-        to:by:do:
-
-        loop
-        whileTrue
-        whileFalse
-        doWhile:
-        doUntil:
-
-        do:
-        doWithIndex:
-        pairWiseDo:
-        keysAndValuesDo:
-
-        withPriority:do:
-        handle:do:
-        on:do:
-        catch:
-        ignoreIn:
-
-        "/ newProcess
-        fork:
-        ensure:
-        ifCurtailed:
-        valueOnUnwindDo:
-        valueNowOrOnUnwindDo:
-
-        caseOf:
-        caseOf:otherwise:
-    )
-
-    "Created: / 08-09-2006 / 15:56:47 / cg"
+    ^ self class controlFlowSelectors
 !
 
 debugSelectors
-    "these are considered harmful, selectors for debugging. 
-     These are optionally shown with another color (red)"
-
-    ^ #(
-        halt halt:
-    )
+    ^ self class debugSelectors
 !
 
 defineAsUndeclaredVariable:aName
@@ -488,16 +515,7 @@
 !
 
 errorRaisingSelectors
-    "these are error raisers. 
-     These are optionally shown with another color (red)"
-
-    ^ #(
-        error error:
-        raise raiseRequest:
-        raiseErrorString: raiseRequestErrorString:
-        raiseWith: raiseRequestWith:
-        raiseWith:errorString: raiseRequestWith:errorString:
-    )
+    ^ self class errorRaisingSelectors
 !
 
 isSyntaxHighlighter
@@ -551,11 +569,11 @@
 !AbstractSyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.24 2013-07-24 19:31:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.25 2013-07-25 00:38:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.24 2013-07-24 19:31:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.25 2013-07-25 00:38:32 cg Exp $'
 !
 
 version_SVN