converted version methods from comment-only to returning-a-string
authorClaus Gittinger <cg@exept.de>
Sat, 11 Nov 1995 15:28:26 +0100
changeset 528 a083413dfbe8
parent 527 7eedfdb0db62
child 529 413c9ae63621
converted version methods from comment-only to returning-a-string
AbsTime.st
AbsoluteTime.st
AbstrTime.st
AbstractTime.st
ActorStr.st
ArithVal.st
ArithmeticValue.st
ArrColl.st
Array.st
ArrayedCollection.st
Assoc.st
Association.st
Autoload.st
BContext.st
Bag.st
Behavior.st
Block.st
BlockContext.st
Boolean.st
ByteArray.st
CCReader.st
CharArray.st
Character.st
CharacterArray.st
CheapBlk.st
CheapBlock.st
ClassCategoryReader.st
ClassDescr.st
ClassDescription.st
Coll.st
Collection.st
CompCode.st
CompiledCode.st
Context.st
Date.st
Delay.st
Dict.st
Dictionary.st
DirStr.st
DirectoryStream.st
Timestamp.st
--- a/AbsTime.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/AbsTime.st	Sat Nov 11 15:28:26 1995 +0100
@@ -19,13 +19,6 @@
 	 category:'Magnitude-General'
 !
 
-AbsoluteTime comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-'!
-
 !AbsoluteTime class methodsFor:'documentation'!
 
 copyright
@@ -43,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.16 1995-11-11 14:26:22 cg Exp $'
 !
 
 documentation
--- a/AbsoluteTime.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/AbsoluteTime.st	Sat Nov 11 15:28:26 1995 +0100
@@ -19,13 +19,6 @@
 	 category:'Magnitude-General'
 !
 
-AbsoluteTime comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-'!
-
 !AbsoluteTime class methodsFor:'documentation'!
 
 copyright
@@ -43,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.16 1995-11-11 14:26:22 cg Exp $'
 !
 
 documentation
--- a/AbstrTime.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/AbstrTime.st	Sat Nov 11 15:28:26 1995 +0100
@@ -43,9 +43,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/AbstrTime.st,v 1.6 1995-08-30 18:24:58 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbstrTime.st,v 1.7 1995-11-11 14:26:24 cg Exp $'
 ! !
 
 !AbstractTime class methodsFor:'instance creation'!
--- a/AbstractTime.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/AbstractTime.st	Sat Nov 11 15:28:26 1995 +0100
@@ -43,9 +43,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.6 1995-08-30 18:24:58 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.7 1995-11-11 14:26:24 cg Exp $'
 ! !
 
 !AbstractTime class methodsFor:'instance creation'!
--- a/ActorStr.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ActorStr.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Streams'
 !
 
-ActorStream comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/ActorStr.st,v 1.12 1995-08-11 02:58:16 claus Exp $
-'!
-
 !ActorStream class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/ActorStr.st,v 1.12 1995-08-11 02:58:16 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ActorStr.st,v 1.13 1995-11-11 14:26:26 cg Exp $'
 !
 
 documentation
--- a/ArithVal.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ArithVal.st	Sat Nov 11 15:28:26 1995 +0100
@@ -20,13 +20,6 @@
        category:'Magnitude-Numbers'
 !
 
-ArithmeticValue comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/ArithVal.st,v 1.15 1995-08-11 02:58:19 claus Exp $
-'!
-
 !ArithmeticValue class methodsFor:'documentation' !
 
 copyright
@@ -44,9 +37,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/ArithVal.st,v 1.15 1995-08-11 02:58:19 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArithVal.st,v 1.16 1995-11-11 14:26:28 cg Exp $'
 !
 
 documentation
--- a/ArithmeticValue.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ArithmeticValue.st	Sat Nov 11 15:28:26 1995 +0100
@@ -20,13 +20,6 @@
        category:'Magnitude-Numbers'
 !
 
-ArithmeticValue comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.15 1995-08-11 02:58:19 claus Exp $
-'!
-
 !ArithmeticValue class methodsFor:'documentation' !
 
 copyright
@@ -44,9 +37,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.15 1995-08-11 02:58:19 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.16 1995-11-11 14:26:28 cg Exp $'
 !
 
 documentation
--- a/ArrColl.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ArrColl.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Abstract'
 !
 
-ArrayedCollection comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.23 1995-08-16 18:25:32 claus Exp $
-'!
-
 !ArrayedCollection class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.23 1995-08-16 18:25:32 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.24 1995-11-11 14:26:31 cg Exp $'
 !
 
 documentation
--- a/Array.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Array.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Arrayed'
 !
 
-Array comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.39 1995-09-03 15:04:10 claus Exp $
-'!
-
 !Array class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.39 1995-09-03 15:04:10 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.40 1995-11-11 14:26:37 cg Exp $'
 !
 
 documentation
--- a/ArrayedCollection.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ArrayedCollection.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Abstract'
 !
 
-ArrayedCollection comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.23 1995-08-16 18:25:32 claus Exp $
-'!
-
 !ArrayedCollection class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.23 1995-08-16 18:25:32 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.24 1995-11-11 14:26:31 cg Exp $'
 !
 
 documentation
--- a/Assoc.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Assoc.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Support'
 !
 
-Association comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/Assoc.st,v 1.12 1995-08-11 02:58:33 claus Exp $
-'!
-
 !Association class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/Assoc.st,v 1.12 1995-08-11 02:58:33 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Assoc.st,v 1.13 1995-11-11 14:26:43 cg Exp $'
 !
 
 documentation
--- a/Association.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Association.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Support'
 !
 
-Association comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Association.st,v 1.12 1995-08-11 02:58:33 claus Exp $
-'!
-
 !Association class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Association.st,v 1.12 1995-08-11 02:58:33 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Association.st,v 1.13 1995-11-11 14:26:43 cg Exp $'
 !
 
 documentation
--- a/Autoload.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Autoload.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Classes'
 !
 
-Autoload comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.28 1995-11-02 11:28:52 cg Exp $
-'!
-
 !Autoload class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 ! 
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.28 1995-11-02 11:28:52 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.29 1995-11-11 14:26:46 cg Exp $'
 !
 
 documentation
--- a/BContext.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/BContext.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Methods'
 !
 
-BlockContext comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.17 1995-08-11 02:58:42 claus Exp $
-'!
-
 !BlockContext class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.17 1995-08-11 02:58:42 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.18 1995-11-11 14:26:48 cg Exp $'
 !
 
 documentation
--- a/Bag.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Bag.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Unordered'
 !
 
-Bag comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.13 1995-08-16 18:25:45 claus Exp $
-'!
-
 !Bag class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.13 1995-08-16 18:25:45 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.14 1995-11-11 14:26:49 cg Exp $'
 !
 
 documentation
--- a/Behavior.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Behavior.st	Sat Nov 11 15:28:26 1995 +0100
@@ -18,13 +18,6 @@
        category:'Kernel-Classes'
 !
 
-Behavior comment:'
-COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.51 1995-11-07 17:15:46 cg Exp $
-'!
-
 !Behavior class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.51 1995-11-07 17:15:46 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.52 1995-11-11 14:26:59 cg Exp $'
 !
 
 documentation
--- a/Block.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Block.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Methods'
 !
 
-Block comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.39 1995-08-17 16:04:38 claus Exp $
-'!
-
 !Block class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.39 1995-08-17 16:04:38 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.40 1995-11-11 14:27:12 cg Exp $'
 !
 
 documentation
--- a/BlockContext.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/BlockContext.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Methods'
 !
 
-BlockContext comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.17 1995-08-11 02:58:42 claus Exp $
-'!
-
 !BlockContext class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.17 1995-08-11 02:58:42 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.18 1995-11-11 14:26:48 cg Exp $'
 !
 
 documentation
--- a/Boolean.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Boolean.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Objects'
 !
 
-Boolean comment:'
-COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.14 1995-09-07 11:57:49 claus Exp $
-'!
-
 !Boolean class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.14 1995-09-07 11:57:49 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.15 1995-11-11 14:27:17 cg Exp $'
 !
 
 documentation
--- a/ByteArray.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ByteArray.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Arrayed'
 !
 
-ByteArray comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.35 1995-10-25 13:40:06 cg Exp $
-'!
-
 !ByteArray class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.35 1995-10-25 13:40:06 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.36 1995-11-11 14:27:24 cg Exp $'
 !
 
 documentation
--- a/CCReader.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CCReader.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Support'
 !
 
-ClassCategoryReader comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	     All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
-'!
-
 !ClassCategoryReader class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.22 1995-11-11 14:27:31 cg Exp $'
 !
 
 documentation
@@ -137,23 +128,23 @@
     |aString done method compiler makeSourceRef sourceFile pos nm|
 
     ignore ifFalse:[
-        Smalltalk silentLoading ifFalse:[
+	Smalltalk silentLoading ifFalse:[
 	    myClass isNil ifTrue:[
-	        nm := '** UndefinedClass **'
+		nm := '** UndefinedClass **'
 	    ] ifFalse:[
-	        nm := myClass name
+		nm := myClass name
 	    ].
 	    Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
 	].
 
-        makeSourceRef := false.
-        KeepSource == false ifTrue:[
+	makeSourceRef := false.
+	KeepSource == false ifTrue:[
 	    aStream isFileStream ifTrue:[
-	        sourceFile := aStream pathName.
-	        sourceFile printNL.
-	        makeSourceRef := true.
+		sourceFile := aStream pathName.
+		sourceFile printNL.
+		makeSourceRef := true.
 	    ]
-        ].
+	].
     ].
 
     done := false.
--- a/CharArray.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CharArray.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Text'
 !
 
-CharacterArray comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.35 1995-11-09 14:14:52 cg Exp $
-'!
-
 !CharacterArray class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.35 1995-11-09 14:14:52 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.36 1995-11-11 14:27:38 cg Exp $'
 !
 
 documentation
--- a/Character.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Character.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Magnitude-General'
 !
 
-Character comment:'
-COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Character.st,v 1.24 1995-11-10 16:46:03 cg Exp $
-'!
-
 !Character class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Character.st,v 1.24 1995-11-10 16:46:03 cg Exp $
-"
+    ^' $Header: /cvs/stx/stx/libbasic/Character.st,v 1.25 1995-11-11 14:27:46 cg Exp $'
 !
 
 documentation
--- a/CharacterArray.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CharacterArray.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Collections-Text'
 !
 
-CharacterArray comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.35 1995-11-09 14:14:52 cg Exp $
-'!
-
 !CharacterArray class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.35 1995-11-09 14:14:52 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.36 1995-11-11 14:27:38 cg Exp $'
 !
 
 documentation
--- a/CheapBlk.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CheapBlk.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Methods'
 !
 
-CheapBlock comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.7 1995-08-11 02:59:27 claus Exp $
-'!
-
 !CheapBlock class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.7 1995-08-11 02:59:27 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.8 1995-11-11 14:27:49 cg Exp $'
 !
 
 documentation
--- a/CheapBlock.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CheapBlock.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Methods'
 !
 
-CheapBlock comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.7 1995-08-11 02:59:27 claus Exp $
-'!
-
 !CheapBlock class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.7 1995-08-11 02:59:27 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.8 1995-11-11 14:27:49 cg Exp $'
 !
 
 documentation
--- a/ClassCategoryReader.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ClassCategoryReader.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Support'
 !
 
-ClassCategoryReader comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	     All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
-'!
-
 !ClassCategoryReader class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.22 1995-11-11 14:27:31 cg Exp $'
 !
 
 documentation
@@ -137,23 +128,23 @@
     |aString done method compiler makeSourceRef sourceFile pos nm|
 
     ignore ifFalse:[
-        Smalltalk silentLoading ifFalse:[
+	Smalltalk silentLoading ifFalse:[
 	    myClass isNil ifTrue:[
-	        nm := '** UndefinedClass **'
+		nm := '** UndefinedClass **'
 	    ] ifFalse:[
-	        nm := myClass name
+		nm := myClass name
 	    ].
 	    Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
 	].
 
-        makeSourceRef := false.
-        KeepSource == false ifTrue:[
+	makeSourceRef := false.
+	KeepSource == false ifTrue:[
 	    aStream isFileStream ifTrue:[
-	        sourceFile := aStream pathName.
-	        sourceFile printNL.
-	        makeSourceRef := true.
+		sourceFile := aStream pathName.
+		sourceFile printNL.
+		makeSourceRef := true.
 	    ]
-        ].
+	].
     ].
 
     done := false.
--- a/ClassDescr.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ClassDescr.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Classes'
 !
 
-ClassDescription comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.19 1995-10-30 18:55:31 cg Exp $
-'!
-
 !ClassDescription class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.19 1995-10-30 18:55:31 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.20 1995-11-11 14:27:50 cg Exp $'
 !
 
 documentation
--- a/ClassDescription.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/ClassDescription.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Kernel-Classes'
 !
 
-ClassDescription comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.19 1995-10-30 18:55:31 cg Exp $
-'!
-
 !ClassDescription class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.19 1995-10-30 18:55:31 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.20 1995-11-11 14:27:50 cg Exp $'
 !
 
 documentation
--- a/Coll.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Coll.st	Sat Nov 11 15:28:26 1995 +0100
@@ -18,13 +18,6 @@
        category:'Collections-Abstract'
 !
 
-Collection comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/Coll.st,v 1.41 1995-09-03 15:04:44 claus Exp $
-'!
-
 !Collection class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/Coll.st,v 1.41 1995-09-03 15:04:44 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Coll.st,v 1.42 1995-11-11 14:27:55 cg Exp $'
 !
 
 documentation
--- a/Collection.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Collection.st	Sat Nov 11 15:28:26 1995 +0100
@@ -18,13 +18,6 @@
        category:'Collections-Abstract'
 !
 
-Collection comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.41 1995-09-03 15:04:44 claus Exp $
-'!
-
 !Collection class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.41 1995-09-03 15:04:44 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.42 1995-11-11 14:27:55 cg Exp $'
 !
 
 documentation
--- a/CompCode.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CompCode.st	Sat Nov 11 15:28:26 1995 +0100
@@ -19,13 +19,6 @@
        category:'Kernel-Methods'
 !
 
-CompiledCode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.19 1995-08-28 21:08:07 claus Exp $
-'!
-
 !CompiledCode class methodsFor:'documentation'!
 
 copyright
@@ -43,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.19 1995-08-28 21:08:07 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.20 1995-11-11 14:27:59 cg Exp $'
 !
 
 documentation
--- a/CompiledCode.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/CompiledCode.st	Sat Nov 11 15:28:26 1995 +0100
@@ -19,13 +19,6 @@
        category:'Kernel-Methods'
 !
 
-CompiledCode comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.19 1995-08-28 21:08:07 claus Exp $
-'!
-
 !CompiledCode class methodsFor:'documentation'!
 
 copyright
@@ -43,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.19 1995-08-28 21:08:07 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.20 1995-11-11 14:27:59 cg Exp $'
 !
 
 documentation
--- a/Context.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Context.st	Sat Nov 11 15:28:26 1995 +0100
@@ -18,13 +18,6 @@
        category:'Kernel-Methods'
 !
 
-Context comment:'
-COPYRIGHT (c) 1988 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Context.st,v 1.40 1995-08-28 15:47:25 claus Exp $
-'!
-
 !Context class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Context.st,v 1.40 1995-08-28 15:47:25 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.41 1995-11-11 14:28:05 cg Exp $'
 !
 
 documentation
--- a/Date.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Date.st	Sat Nov 11 15:28:26 1995 +0100
@@ -18,13 +18,6 @@
        category:'Magnitude-General'
 !
 
-Date comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Date.st,v 1.26 1995-08-27 00:54:50 claus Exp $
-'!
-
 !Date class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +35,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Date.st,v 1.26 1995-08-27 00:54:50 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.27 1995-11-11 14:28:13 cg Exp $'
 !
 
 documentation
--- a/Delay.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Delay.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
 	 category:'Kernel-Processes'
 !
 
-Delay comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.10 1995-08-11 02:59:59 claus Exp $
-'!
-
 !Delay class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.10 1995-08-11 02:59:59 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.11 1995-11-11 14:28:18 cg Exp $'
 !
 
 documentation
--- a/Dict.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Dict.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
 	 category:'Collections-Unordered'
 !
 
-Dictionary comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/Dict.st,v 1.27 1995-08-16 18:26:16 claus Exp $
-'!
-
 !Dictionary class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/Dict.st,v 1.27 1995-08-16 18:26:16 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Dict.st,v 1.28 1995-11-11 14:28:21 cg Exp $'
 !
 
 documentation
--- a/Dictionary.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Dictionary.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
 	 category:'Collections-Unordered'
 !
 
-Dictionary comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.27 1995-08-16 18:26:16 claus Exp $
-'!
-
 !Dictionary class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.27 1995-08-16 18:26:16 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.28 1995-11-11 14:28:21 cg Exp $'
 !
 
 documentation
--- a/DirStr.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/DirStr.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Streams-External'
 !
 
-DirectoryStream comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.25 1995-11-03 12:14:33 cg Exp $
-'!
-
 !DirectoryStream class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.25 1995-11-03 12:14:33 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.26 1995-11-11 14:28:26 cg Exp $'
 !
 
 documentation
--- a/DirectoryStream.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/DirectoryStream.st	Sat Nov 11 15:28:26 1995 +0100
@@ -17,13 +17,6 @@
        category:'Streams-External'
 !
 
-DirectoryStream comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.25 1995-11-03 12:14:33 cg Exp $
-'!
-
 !DirectoryStream class methodsFor:'documentation'!
 
 copyright
@@ -41,9 +34,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.25 1995-11-03 12:14:33 cg Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.26 1995-11-11 14:28:26 cg Exp $'
 !
 
 documentation
--- a/Timestamp.st	Sat Nov 11 15:25:35 1995 +0100
+++ b/Timestamp.st	Sat Nov 11 15:28:26 1995 +0100
@@ -19,13 +19,6 @@
 	 category:'Magnitude-General'
 !
 
-AbsoluteTime comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-'!
-
 !AbsoluteTime class methodsFor:'documentation'!
 
 copyright
@@ -43,9 +36,7 @@
 !
 
 version
-"
-$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.15 1995-09-08 16:45:07 claus Exp $
-"
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.16 1995-11-11 14:26:22 cg Exp $'
 !
 
 documentation