--- 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 $'
! !