# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 973602063 -3600
# Node ID a76614b953c709d2287cc1735272cabd7a460920
# Parent  efca1b5b2b0f68136e018bdf07a7adbc5f1d6311
lifted visibilityChannel stuff to superclass

diff -r efca1b5b2b0f -r a76614b953c7 View.st
--- 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 $'
 ! !