lifted visibilityChannel stuff to superclass
authorClaus Gittinger <cg@exept.de>
Tue, 07 Nov 2000 14:01:03 +0100
changeset 3365 a76614b953c7
parent 3364 efca1b5b2b0f
child 3366 3750f8131471
lifted visibilityChannel stuff to superclass
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 $'
 ! !