added #fileOutSourceOn: for ST80 compatibility
authorClaus Gittinger <cg@exept.de>
Fri, 20 Jun 1997 17:31:53 +0200
changeset 2709 91d3b6e73ea0
parent 2708 6c4a4f30d540
child 2710 557d1842afd5
added #fileOutSourceOn: for ST80 compatibility
Class.st
--- a/Class.st	Fri Jun 20 17:30:50 1997 +0200
+++ b/Class.st	Fri Jun 20 17:31:53 1997 +0200
@@ -439,6 +439,15 @@
     "Modified: 5.1.1997 / 19:59:36 / cg"
 ! !
 
+!Class methodsFor:'ST80 compatibility'!
+
+fileOutSourceOn:aStream
+    self fileOutOn:aStream withTimeStamp:false
+
+    "Created: 20.6.1997 / 17:18:14 / cg"
+    "Modified: 20.6.1997 / 17:18:26 / cg"
+! !
+
 !Class methodsFor:'accessing'!
 
 addClassVarName:aString
@@ -3702,5 +3711,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.282 1997-06-04 12:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.283 1997-06-20 15:31:53 cg Exp $'
 ! !