--- a/UnixFilename.st	Thu Feb 12 19:37:17 2004 +0100
+++ b/UnixFilename.st	Thu Feb 12 19:40:02 2004 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 Filename subclass:#UnixFilename
 	instanceVariableNames:''
 	classVariableNames:''
@@ -40,6 +42,28 @@
 
 ! !
 
+!UnixFilename class methodsFor:'instance creation'!
+
+named:aString
+    "return a filename for a directory named aString.
+     This is the same as 'aString asFilename'."
+
+    |singleByteString|
+
+    aString bitsPerCharacter > 8 ifTrue:[
+        singleByteString := CharacterEncoder::ISO10646_to_UTF8 encodeString:aString
+    ] ifFalse:[
+        singleByteString := aString.
+    ].
+    ^ (self basicNew) setName:singleByteString
+
+    "
+     Filename named:'/tmp/fooBar'
+    "
+
+    "Modified: 7.9.1997 / 23:30:06 / cg"
+! !
+
 !UnixFilename class methodsFor:'queries'!
 
 isBadCharacter:aCharacter
@@ -216,5 +240,5 @@
 !UnixFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.8 1998-07-21 14:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.9 2004-02-12 18:40:02 cg Exp $'
 ! !