--- a/TabItem.st	Tue Nov 28 19:27:39 2017 +0100
+++ b/TabItem.st	Tue Nov 28 19:27:59 2017 +0100
@@ -233,25 +233,6 @@
     "Modified (format): / 04-02-2017 / 21:34:46 / cg"
 !
 
-foregroundColor
-    "get the label color or nil"
-
-    ^ foregroundColor
-
-    "Modified: / 06-09-2006 / 15:14:46 / cg"
-!
-
-foregroundColor:aColor
-    "set the label color or nil"
-
-    foregroundColor ~= aColor ifTrue:[
-        foregroundColor := aColor.
-        self changed:#foregroundColor
-    ].
-
-    "Modified: / 06-09-2006 / 15:00:31 / cg"
-!
-
 hasView
     ^ view notNil
 !
@@ -282,18 +263,6 @@
     "Modified: / 06-09-2006 / 15:54:13 / cg"
 !
 
-labelForegroundColor
-    "get the label color or nil
-    "
-    ^ self foregroundColor
-!
-
-labelForegroundColor:aColor
-    "set the label color or nil
-    "
-    self foregroundColor:aColor
-!
-
 nameKey
     "an additional (untranslated) key (do not use the label to identify tabs)"
 
@@ -542,6 +511,39 @@
     ^ frame
 ! !
 
+!TabItem methodsFor:'accessing-color & font'!
+
+foregroundColor
+    "get the label color or nil"
+
+    ^ foregroundColor
+
+    "Modified: / 06-09-2006 / 15:14:46 / cg"
+!
+
+foregroundColor:aColor
+    "set the label color or nil"
+
+    foregroundColor ~= aColor ifTrue:[
+        foregroundColor := aColor.
+        self changed:#foregroundColor
+    ].
+
+    "Modified: / 06-09-2006 / 15:00:31 / cg"
+!
+
+labelForegroundColor
+    "get the label color or nil
+    "
+    ^ self foregroundColor
+!
+
+labelForegroundColor:aColor
+    "set the label color or nil
+    "
+    self foregroundColor:aColor
+! !
+
 !TabItem methodsFor:'accessing-scrollbars'!
 
 autoHideScrollBars