--- a/AspctAdptr.st	Wed Jan 22 04:19:07 1997 +0100
+++ b/AspctAdptr.st	Wed Jan 22 12:01:54 1997 +0100
@@ -152,8 +152,14 @@
 !
 
 subject:anObject sendsUpdates:aBoolean accessWith:getSel assignWith:putSel aspect:aspect
+    "create and return a new adaptor, which forwards requests
+     to anObject, using getSel/putSel for access.
+     The returned object can be used in place of a ValueHolder"
+
     ^ (self subject:anObject sendsUpdates:aBoolean) 
-		accessWith:getSel assignWith:putSel aspect:aspect
+                accessWith:getSel assignWith:putSel aspect:aspect
+
+    "Modified: 22.1.1997 / 12:00:42 / cg"
 ! !
 
 !AspectAdaptor methodsFor:'accessing-spec'!
@@ -240,5 +246,5 @@
 !AspectAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.14 1996-05-18 15:36:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.15 1997-01-22 11:01:42 cg Exp $'
 ! !