--- a/View.st Tue Nov 07 14:00:40 2000 +0100
+++ b/View.st Tue Nov 07 14:01:03 2000 +0100
@@ -14,8 +14,7 @@
SimpleView subclass:#View
instanceVariableNames:'model aspectMsg changeMsg menuMsg menuHolder menuPerformer
- visibilityChannel enableChannel foregroundChannel
- backgroundChannel'
+ enableChannel foregroundChannel backgroundChannel'
classVariableNames:''
poolDictionaries:''
category:'Views-Basic'
@@ -302,40 +301,6 @@
"Created: / 14.1.1998 / 17:11:15 / stefan"
"Modified: / 14.1.1998 / 17:33:40 / stefan"
-!
-
-visibilityChannel
- "return a valueHolder for visible/invisible"
-
- ^ visibilityChannel
-
- "Modified: / 30.3.1999 / 13:49:56 / stefan"
-!
-
-visibilityChannel:aValueHolder
- "set the valueHolder, which holds the visible boolean value"
-
- |prev|
-
- prev := visibilityChannel.
- visibilityChannel := aValueHolder.
- self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev
-
- "
- |v h|
-
- v := View new.
- v visibilityChannel:(h := ValueHolder with:true).
- v open.
- Delay waitForSeconds:2.
- h value:false.
- Delay waitForSeconds:2.
- h value:true.
- Delay waitForSeconds:2.
- "
-
- "Created: / 14.1.1998 / 17:11:15 / stefan"
- "Modified: / 14.1.1998 / 17:33:40 / stefan"
! !
!View methodsFor:'accessing-menus'!
@@ -788,5 +753,5 @@
!View class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.71 2000-10-31 12:39:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.72 2000-11-07 13:01:03 cg Exp $'
! !