--- a/FileDirectory.st Sat Aug 20 21:29:33 2011 +0100
+++ b/FileDirectory.st Mon Aug 22 11:53:10 2011 +0100
@@ -93,7 +93,7 @@
"create and return a new FileDirectory for the current directory"
"/ self obsoleteMethodWarning:'use Filename'.
- ^ (self basicNew) pathName:(Filename currentDirectory name)
+ ^ self on:(Filename currentDirectory name)
"
FileDirectory currentDirectory contents
@@ -101,6 +101,8 @@
FileDirectory currentDirectory isReadable
FileDirectory currentDirectory pathName
"
+
+ "Modified: / 20-08-2011 / 12:19:51 / cg"
!
directoryNamed:name
@@ -109,16 +111,18 @@
"/ self obsoleteMethodWarning:'use Filename'.
name asString = '.' ifTrue:[
- Filename currentDirectory name ~= '.' ifTrue:[
- ^ self currentDirectory
- ]
+ Filename currentDirectory name ~= '.' ifTrue:[
+ ^ self currentDirectory
+ ]
].
- ^ (self basicNew) pathName:(name asFilename constructString:'')
+ ^ self on:(name asFilename constructString:'')
"
(FileDirectory directoryNamed:'..') pathName
(FileDirectory directoryNamed:'../..') files
"
+
+ "Modified: / 20-08-2011 / 12:19:57 / cg"
!
directoryNamed:name in:aFileDirectory
@@ -138,23 +142,31 @@
] ifFalse:[
baseName := aFileDirectory
].
- ^ (self basicNew) pathName:((Filename named:baseName) constructString:name)
+ ^ self on:((Filename named:baseName) constructString:name)
- "Modified: 28.4.1997 / 23:23:51 / cg"
- "Modified: 28.4.1997 / 22:34:47 / dq"
+ "Modified: / 28-04-1997 / 22:34:47 / dq"
+ "Modified: / 20-08-2011 / 12:20:03 / cg"
+!
+
+on:aDirectoryPathName
+ ^ (self basicNew) pathName:aDirectoryPathName
+
+ "Created: / 20-08-2011 / 12:19:28 / cg"
!
rootDirectory
"create and return a new FileDirectory for the root directory"
"/ self obsoleteMethodWarning:'use Filename'.
- ^ (self basicNew) pathName:(Filename rootDirectory name)
+ ^ self on:(Filename rootDirectory name)
"
FileDirectory rootDirectory contents
FileDirectory rootDirectory files
FileDirectory rootDirectory isReadable
"
+
+ "Modified: / 20-08-2011 / 12:20:09 / cg"
! !
!FileDirectory class methodsFor:'Compatibility-Squeak'!
@@ -169,6 +181,12 @@
pathNameDelimiter
^ Filename separator
+!
+
+slash
+ ^ Filename separator asString
+
+ "Created: / 20-08-2011 / 12:18:27 / cg"
! !
!FileDirectory class methodsFor:'private'!
@@ -794,11 +812,12 @@
!FileDirectory class methodsFor:'documentation'!
version
- ^ '$Id: FileDirectory.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+ ^ '$Id: FileDirectory.st 10675 2011-08-22 10:53:10Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.49 2009/10/26 15:24:34 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.50 2011/08/21 16:01:15 cg Exp §'
! !
FileDirectory initialize!
+