--- a/FramedBox.st	Tue Nov 28 19:25:35 2017 +0100
+++ b/FramedBox.st	Tue Nov 28 19:26:10 2017 +0100
@@ -290,23 +290,6 @@
     "Modified: / 6.6.1998 / 20:05:05 / cg"
 !
 
-foregroundColor
-    "return the label's foreground color"
-
-    ^ fgColor
-!
-
-foregroundColor:aColor
-    "set the frame label's foreground color"
-
-    aColor ~= fgColor ifTrue:[
-        fgColor := aColor.
-        self invalidateRepairNow:true
-    ]
-
-    "Modified: / 6.6.1998 / 19:23:14 / cg"
-!
-
 frameColor
     "return the frame's color"
 
@@ -518,6 +501,25 @@
     ].
 ! !
 
+!FramedBox methodsFor:'accessing-color & font'!
+
+foregroundColor
+    "return the label's foreground color"
+
+    ^ fgColor
+!
+
+foregroundColor:aColor
+    "set the frame label's foreground color"
+
+    aColor ~= fgColor ifTrue:[
+        fgColor := aColor.
+        self invalidateRepairNow:true
+    ]
+
+    "Modified: / 6.6.1998 / 19:23:14 / cg"
+! !
+
 !FramedBox methodsFor:'change & update'!
 
 update:what with:aPara from:aModel