View.st
changeset 2950 705ddb097eec
parent 2573 437ff42d1ba3
child 3095 d7b5e6495c79
--- a/View.st	Thu Oct 07 01:35:40 1999 +0200
+++ b/View.st	Thu Oct 07 10:14:02 1999 +0200
@@ -237,7 +237,7 @@
 
     prev := enableChannel.
     enableChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev
+    self setupChannel:aValueHolder for:#enableStateChanged withOld:prev
 
     "Modified: / 14.11.1997 / 13:52:44 / cg"
     "Modified: / 30.3.1999 / 13:50:15 / stefan"
@@ -318,7 +318,7 @@
 
     prev := visibilityChannel.
     visibilityChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev
+    self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev
 
     "
       |v h|
@@ -685,14 +685,6 @@
 
 update:something with:aParameter from:changedObject
 
-    changedObject == enableChannel ifTrue:[
-        self enableStateChanged.
-        ^ self
-    ].
-    changedObject == visibilityChannel ifTrue:[
-        self visibilityStateChanged.
-        ^ self
-    ].
     changedObject == backgroundChannel ifTrue:[
         self backgroundColor:(backgroundChannel value).
         ^ self
@@ -769,5 +761,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.65 1999-04-23 12:50:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.66 1999-10-07 08:14:02 cg Exp $'
 ! !