--- a/FileDirectory.st Wed Aug 29 16:24:55 2012 +0200
+++ b/FileDirectory.st Fri Aug 31 19:57:10 2012 +0200
@@ -295,21 +295,6 @@
^ self files
!
-fileNamesMatching:pattern
- "Same as directoryContants, but returns only files
- that match the given pattern.
- This uses String>>matches: for glob pattern matching"
-
- | names |
-
- names := self asFilename directoryContents.
- names isNil ifTrue:[^ nil].
- ^ names select: [:e | e matches: pattern].
-
- "Created: / 12-09-2010 / 18:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (format): / 18-11-2011 / 14:45:42 / cg"
-!
-
forceNewFileNamed:fn
"Squeak/ST80 compatibility"
@@ -598,7 +583,7 @@
aStream close
! !
-!FileDirectory methodsFor:'more instance creation'!
+!FileDirectory methodsFor:'instance creation'!
directoryNamed:aName
"create & return a new fileDirectory for a subdirectory in myself"
@@ -832,11 +817,11 @@
!FileDirectory class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.52 2011-11-24 17:29:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012-08-31 17:57:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.52 2011-11-24 17:29:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.53 2012-08-31 17:57:10 cg Exp $'
! !
FileDirectory initialize!