Filename.st
changeset 326 d2902942491d
parent 325 46bca6125b93
child 328 7b542c0bf1dd
--- a/Filename.st	Sun Apr 02 13:07:58 1995 +0200
+++ b/Filename.st	Tue Apr 11 16:52:00 1995 +0200
@@ -20,7 +20,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.23 1995-04-02 11:06:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.24 1995-04-11 14:49:31 claus Exp $
 '!
 
 !Filename class methodsFor:'documentation'!
@@ -41,7 +41,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.23 1995-04-02 11:06:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.24 1995-04-11 14:49:31 claus Exp $
 "
 !
 
@@ -165,6 +165,15 @@
      We ask the OS about this, to be independent here."
 
     ^ OperatingSystem caseSensitiveFilenames
+!
+
+defaultClass
+    "ST-80 compatibility:
+     in ST-80, different subclasses of FIlename are used for different
+     OperatingSYstems; defaultClass is supposed to return an appropriate class.
+     Since in ST/X, there is (currently) only one Filename class, return it here."
+
+    ^ self
 ! !
 
 !Filename methodsFor:'instance creation'!