--- a/InterestConverter.st	Tue Jun 24 19:25:44 1997 +0200
+++ b/InterestConverter.st	Tue Jun 24 19:26:24 1997 +0200
@@ -102,19 +102,32 @@
 !InterestConverter class methodsFor:'instance creation'!
 
 destination:anObject selector:aSelector
+    "create & return an interestConverter, which sends aSelector
+     to anObject when a change notification arrives"
+
     ^ self basicNew destination:anObject selector:aSelector
+
+    "Modified: 21.5.1997 / 11:59:08 / cg"
 !
 
 destination:anObject selector:aSelector aspect:aspect
+    "create & return an interestConverter, which sends aSelector
+     to anObject when a change notification for aspect arrives"
+
     ^ self basicNew destination:anObject selector:aSelector aspect:aspect
+
+    "Modified: 21.5.1997 / 11:59:26 / cg"
 ! !
 
 !InterestConverter methodsFor:'accessing'!
 
-aspect 
+aspect
+    "return my aspect (if any)"
+
     ^ aspect
 
     "Created: 8.3.1996 / 23:00:37 / cg"
+    "Modified: 21.5.1997 / 11:59:43 / cg"
 !
 
 destination
@@ -152,5 +165,5 @@
 !InterestConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.7 1997-06-24 17:25:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.8 1997-06-24 17:26:24 cg Exp $'
 ! !