--- a/View.st	Wed Aug 23 19:56:13 1995 +0200
+++ b/View.st	Thu Aug 24 05:05:35 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/View.st,v 1.44 1995-05-18 22:55:49 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.45 1995-08-24 03:05:35 claus Exp $
 '!
 
 !View class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/View.st,v 1.44 1995-05-18 22:55:49 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.45 1995-08-24 03:05:35 claus Exp $
 "
 !
 
@@ -141,6 +141,22 @@
     ^ #value:
 ! !
 
+!View methodsFor:'accessing-channels'!
+
+setupChannel:newChannel for:changeSelector withOld:oldChannel
+    "common code to change a channel"
+
+    |oldValue|
+
+    oldChannel notNil ifTrue:[
+	oldChannel retractInterrestFor:self.
+	oldValue := oldChannel value.
+    ].
+    newChannel onChangeSend:changeSelector to:self.
+    self perform:changeSelector.
+    ^ newChannel
+! !
+
 !View methodsFor:'accessing-mvc'!
 
 sendChangeMessageWith:arg