--- a/WTrans.st	Thu Jul 15 02:36:58 1999 +0200
+++ b/WTrans.st	Thu Jul 15 21:41:52 1999 +0200
@@ -534,6 +534,9 @@
 !WindowingTransformation methodsFor:'printing'!
 
 printOn:aStream
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
+
     aStream nextPutAll:self class name.
     aStream nextPutAll:' scale: '.
     scale printOn:aStream.
@@ -664,5 +667,5 @@
 !WindowingTransformation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.17 1998-06-13 12:05:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WTrans.st,v 1.18 1999-07-15 19:41:52 cg Exp $'
 ! !

--- a/WindowingTransformation.st	Thu Jul 15 02:36:58 1999 +0200
+++ b/WindowingTransformation.st	Thu Jul 15 21:41:52 1999 +0200
@@ -534,6 +534,9 @@
 !WindowingTransformation methodsFor:'printing'!
 
 printOn:aStream
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
+
     aStream nextPutAll:self class name.
     aStream nextPutAll:' scale: '.
     scale printOn:aStream.
@@ -664,5 +667,5 @@
 !WindowingTransformation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.17 1998-06-13 12:05:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.18 1999-07-15 19:41:52 cg Exp $'
 ! !