--- a/AspctAdptr.st	Tue Feb 18 12:02:04 1997 +0100
+++ b/AspctAdptr.st	Thu Feb 20 16:31:21 1997 +0100
@@ -151,6 +151,16 @@
     ^ (self new) accessWith:getSelector assignWith:putSelector
 !
 
+forAspect:anAspect
+    "create and return a new adaptor, which forwards requests
+     to anObject, using anAspect as get-selector and anAspect-colon as putSelector
+     for access. The returned object can be used in place of a ValueHolder"
+
+    ^ self new forAspect:anAspect
+
+    "Modified: 22.1.1997 / 12:00:42 / cg"
+!
+
 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.
@@ -276,5 +286,5 @@
 !AspectAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.17 1997-02-11 11:05:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.18 1997-02-20 15:31:21 ca Exp $'
 ! !