checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 02 Nov 1997 19:28:49 +0100
changeset 603 6b2fa42f9760
parent 602 342ca1c098a6
child 604 6cee1e2b14c2
checkin from browser
TabView.st
--- a/TabView.st	Sun Nov 02 18:56:48 1997 +0100
+++ b/TabView.st	Sun Nov 02 19:28:49 1997 +0100
@@ -359,18 +359,14 @@
 enableChannel:aValueHolderForBoolean
     "set the valueHolder used for enable/disable
     "
-    enableChannel notNil ifTrue:[
-        enableChannel removeDependent:self. 
-    ].
-    enableChannel := aValueHolderForBoolean.
+
+    |prev|
 
-    enableChannel notNil ifTrue:[
-        enableChannel addDependent:self.
-    ].
-    self enabled:(enableChannel value).
+    prev := enableChannel.
+    enableChannel := aValueHolderForBoolean.
+    self setupChannel:aValueHolderForBoolean for:nil withOld:prev
 
-
-
+    "Modified: / 31.10.1997 / 14:48:59 / cg"
 !
 
 listHolder
@@ -1204,5 +1200,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.28 1997-10-29 16:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.29 1997-11-02 18:28:49 cg Exp $'
 ! !