dont appending a chunk-separator to the initial copyright
authorClaus Gittinger <cg@exept.de>
Sat, 09 Dec 1995 15:58:25 +0100
changeset 719 c557a530f971
parent 718 6f8222ff2ff0
child 720 f31e0e5ab6e0
dont appending a chunk-separator to the initial copyright
Class.st
--- a/Class.st	Sat Dec 09 15:57:29 1995 +0100
+++ b/Class.st	Sat Dec 09 15:58:25 1995 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-!ClassDescription subclass:#Class
+ClassDescription subclass:#Class
 	 instanceVariableNames:'classvars comment subclasses classFilename package revision
                 history'
 	 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
@@ -2341,7 +2341,7 @@
         copyrightText := copyrightText copyFrom:2 to:(copyrightText size).
 "/        copyrightText do:[:line | aStream nextPutAll:line. aStream cr.].
         copyrightText := copyrightText asString.
-        aStream nextChunkPut:copyrightText.
+        aStream nextPutAllAsChunk:copyrightText.
     ].
 
     stampIt ifTrue:[
@@ -2456,7 +2456,7 @@
     ]
 
     "Created: 15.11.1995 / 12:53:06 / cg"
-    "Modified: 9.12.1995 / 15:38:31 / cg"
+    "Modified: 9.12.1995 / 15:54:40 / cg"
 !
 
 fileOutPrimitiveDefinitionsOn:aStream
@@ -3358,6 +3358,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.101 1995-12-09 14:46:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.102 1995-12-09 14:58:25 cg Exp $'
 ! !
 Class initialize!