--- a/VisualPart.st	Wed May 13 18:11:36 2009 +0200
+++ b/VisualPart.st	Wed May 13 18:40:37 2009 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libview2' }"
 
 VisualComponent subclass:#VisualPart
-	instanceVariableNames:'container layout name visibilityChannel originHolder extentHolder'
+	instanceVariableNames:'container layout name visibilityHolder originHolder extentHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Compatibility-ST80-Graphics-Display Objects'
@@ -152,13 +152,23 @@
 !
 
 visibilityChannel
-    ^ visibilityChannel
+    "/ self obsoleteMethodWarning.
+    ^ self visibilityHolder
 !
 
 visibilityChannel:something
-    visibilityChannel removeDependent:self.
-    visibilityChannel := something.
-    visibilityChannel notNil ifTrue:[ visibilityChannel addDependent:self].
+    "/ self obsoleteMethodWarning.
+    self visibilityHolder:something
+!
+
+visibilityHolder
+    ^ visibilityHolder
+!
+
+visibilityHolder:something
+    visibilityHolder removeDependent:self.
+    visibilityHolder := something.
+    visibilityHolder notNil ifTrue:[ visibilityHolder addDependent:self].
 ! !
 
 !VisualPart methodsFor:'accessing-dimensions'!
@@ -187,8 +197,8 @@
     "/ invalidate is always ok - however, it will redraw bg, fg and line
     "/ and therefore may produce flicker (unless double buffering)
 
-    (changedObject == originChannel 
-    or:[ changedObject == extentChannel ]) ifTrue:[
+    (changedObject == originHolder 
+    or:[ changedObject == extentHolder ]) ifTrue:[
         "/ invalidate old region
         self container 
             clearRectangle:self frame;
@@ -215,14 +225,14 @@
                             rectangleRelativeTo:(0@0 extent:container extent "container bounds")
                             preferred:self preferredBounds.
         ].
-        (newExtent := extentChannel value) notNil ifTrue:[
+        (newExtent := extentHolder value) notNil ifTrue:[
             newBounds isNil ifTrue:[
                 newBounds := 0@0 extent:newExtent.
             ] ifFalse:[
                 newBounds extent:newExtent
             ]
         ].
-        (newOrigin := originChannel value) notNil ifTrue:[
+        (newOrigin := originHolder value) notNil ifTrue:[
             newBounds isNil ifTrue:[
                 newBounds := newOrigin extent:(self preferredExtent).
             ].
@@ -445,5 +455,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.24 2009-05-13 16:11:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.25 2009-05-13 16:40:37 cg Exp $'
 ! !