--- a/VisualPart.st	Wed May 13 13:24:43 2009 +0200
+++ b/VisualPart.st	Wed May 13 18:11:36 2009 +0200
@@ -12,8 +12,7 @@
 "{ Package: 'stx:libview2' }"
 
 VisualComponent subclass:#VisualPart
-	instanceVariableNames:'container layout name visibilityChannel originChannel
-		extentChannel'
+	instanceVariableNames:'container layout name visibilityChannel originHolder extentHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Compatibility-ST80-Graphics-Display Objects'
@@ -87,14 +86,14 @@
     "Created: 9.5.1996 / 00:31:41 / cg"
 !
 
-extentChannel
-    ^ extentChannel
+extentHolder
+    ^ extentHolder
 !
 
-extentChannel:something
-    extentChannel removeDependent:self.
-    extentChannel := something.
-    extentChannel notNil ifTrue:[ extentChannel addDependent:self].
+extentHolder:something
+    extentHolder removeDependent:self.
+    extentHolder := something.
+    extentHolder notNil ifTrue:[ extentHolder addDependent:self].
 !
 
 graphicsContext
@@ -123,14 +122,14 @@
     name := something.
 !
 
-originChannel
-    ^ originChannel
+originHolder
+    ^ originHolder
 !
 
-originChannel:something
-    originChannel removeDependent:self.
-    originChannel := something.
-    originChannel notNil ifTrue:[ originChannel addDependent:self].
+originHolder:something
+    originHolder removeDependent:self.
+    originHolder := something.
+    originHolder notNil ifTrue:[ originHolder addDependent:self].
 !
 
 topComponent
@@ -446,5 +445,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.23 2009-05-13 11:24:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.24 2009-05-13 16:11:36 cg Exp $'
 ! !