# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1511892996 -3600
# Node ID 54beadcf89bb58b942c8f4c76fed2e9ca0ead613
# Parent  27a1f500ec0260b42feadb0eedadb772f072ccf3
#DOCUMENTATION by cg
class: VisualComponent
category of:
	#backgroundColor
	#backgroundColor:
	#defaultFont
	#font:
	#foregroundColor
	#foregroundColor:

diff -r 27a1f500ec02 -r 54beadcf89bb VisualComponent.st
--- a/VisualComponent.st	Fri Nov 10 00:18:45 2017 +0100
+++ b/VisualComponent.st	Tue Nov 28 19:16:36 2017 +0100
@@ -93,48 +93,12 @@
 
 !VisualComponent methodsFor:'accessing'!
 
-backgroundColor
-    ^ Color white
-
-    "Created: / 18.6.1998 / 16:01:00 / cg"
-!
-
-backgroundColor:aColor
-    "ignored here"
-
-    "Created: / 18.6.1998 / 16:15:28 / cg"
-!
-
 container:someContainer
     "ignored here"
 
     "Created: 9.5.1996 / 00:48:54 / cg"
 !
 
-defaultFont
-    ^ SimpleView defaultFont
-
-    "Created: / 18.6.1998 / 16:13:56 / cg"
-!
-
-font:aFont
-    "ignored here"
-
-    "Created: / 18.6.1998 / 16:14:39 / cg"
-!
-
-foregroundColor
-    ^ Color black
-
-    "Created: / 18.6.1998 / 16:01:07 / cg"
-!
-
-foregroundColor:aColor
-    "ignored here"
-
-    "Created: / 18.6.1998 / 16:14:53 / cg"
-!
-
 geometryLayout
     "ignored here"
 
@@ -236,6 +200,44 @@
     ^ self backgroundColor
 ! !
 
+!VisualComponent methodsFor:'accessing-color & font'!
+
+backgroundColor
+    ^ Color white
+
+    "Created: / 18.6.1998 / 16:01:00 / cg"
+!
+
+backgroundColor:aColor
+    "ignored here"
+
+    "Created: / 18.6.1998 / 16:15:28 / cg"
+!
+
+defaultFont
+    ^ SimpleView defaultFont
+
+    "Created: / 18.6.1998 / 16:13:56 / cg"
+!
+
+font:aFont
+    "ignored here"
+
+    "Created: / 18.6.1998 / 16:14:39 / cg"
+!
+
+foregroundColor
+    ^ Color black
+
+    "Created: / 18.6.1998 / 16:01:07 / cg"
+!
+
+foregroundColor:aColor
+    "ignored here"
+
+    "Created: / 18.6.1998 / 16:14:53 / cg"
+! !
+
 !VisualComponent methodsFor:'accessing-dimensions'!
 
 bottom