--- a/ProtocolAdaptor.st	Fri Apr 11 15:16:33 2008 +0200
+++ b/ProtocolAdaptor.st	Wed Apr 16 18:55:19 2008 +0200
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libview2' }"
 
 ValueModel subclass:#ProtocolAdaptor
 	instanceVariableNames:'accessPath subject subjectChannel subjectSendsUpdates'
@@ -195,6 +196,19 @@
     ^ newValue
 !
 
+subjectValue
+    "return the value from my subject or subjectChannel."
+
+    |obj|
+
+    subject notNil ifTrue:[
+        obj := subject.
+    ] ifFalse:[
+        obj := subjectChannel value
+    ].
+    ^ self valueUsingSubject:obj
+!
+
 value
     "return the value from my subject or subjectChannel."
 
@@ -342,18 +356,6 @@
     ].
 ! !
 
-!ProtocolAdaptor ignoredMethodsFor:'change notification'!
-
-changed:aspect
-    "redefined to suppress change notifications, if my subject already did it"
-
-    subjectSendsUpdates ifFalse:[
-        super changed:aspect
-    ]
-
-    "Modified: 27.4.1996 / 16:20:28 / cg"
-! !
-
 !ProtocolAdaptor methodsFor:'initialization'!
 
 initialize
@@ -368,5 +370,5 @@
 !ProtocolAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ProtocolAdaptor.st,v 1.13 1997-11-02 17:50:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ProtocolAdaptor.st,v 1.14 2008-04-16 16:55:19 stefan Exp $'
 ! !