--- 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 $'
! !