--- a/VisualPart.st	Tue Nov 28 19:16:36 2017 +0100
+++ b/VisualPart.st	Tue Nov 28 19:16:49 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 VisualComponent subclass:#VisualPart
 	instanceVariableNames:'container layout name visibilityHolder originHolder extentHolder'
 	classVariableNames:''
@@ -63,12 +65,6 @@
 
 !VisualPart methodsFor:'accessing'!
 
-backgroundColor
-    ^ container backgroundColor
-
-    "Created: / 18.6.1998 / 15:58:34 / cg"
-!
-
 container
     "return my container"
 
@@ -151,6 +147,18 @@
     "Modified: 5.6.1996 / 01:20:13 / cg"
 !
 
+visibilityHolder
+    ^ visibilityHolder
+!
+
+visibilityHolder:something
+    visibilityHolder removeDependent:self.
+    visibilityHolder := something.
+    visibilityHolder notNil ifTrue:[ visibilityHolder addDependent:self].
+! !
+
+!VisualPart methodsFor:'accessing-channels'!
+
 visibilityChannel
     "/ self obsoleteMethodWarning.
     ^ self visibilityHolder
@@ -159,16 +167,14 @@
 visibilityChannel:something
     "/ self obsoleteMethodWarning.
     self visibilityHolder:something
-!
+! !
+
+!VisualPart methodsFor:'accessing-color & font'!
 
-visibilityHolder
-    ^ visibilityHolder
-!
+backgroundColor
+    ^ container backgroundColor
 
-visibilityHolder:something
-    visibilityHolder removeDependent:self.
-    visibilityHolder := something.
-    visibilityHolder notNil ifTrue:[ visibilityHolder addDependent:self].
+    "Created: / 18.6.1998 / 15:58:34 / cg"
 ! !
 
 !VisualPart methodsFor:'accessing-dimensions'!
@@ -457,6 +463,6 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.26 2014-12-02 17:22:25 cg Exp $'
+    ^ '$Header$'
 ! !