--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCDirectoryRepository.st	Wed Nov 22 14:22:18 2006 +0100
@@ -0,0 +1,75 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCFileBasedRepository subclass:#MCDirectoryRepository
+	instanceVariableNames:'directory'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Repositories'
+!
+
+
+!MCDirectoryRepository class methodsFor:'instance creation'!
+
+description
+	^ 'directory'
+!
+
+morphicConfigure
+	^ FileList2 modalFolderSelector ifNotNilDo:
+		[:directory |
+		self new directory: directory]
+! !
+
+!MCDirectoryRepository methodsFor:'as yet unclassified'!
+
+allFileNames
+	^ (directory entries sortBy: [:a :b | a modificationTime >= b modificationTime]) collect: [:ea | ea name]
+!
+
+description
+	^ directory pathName
+!
+
+directory
+	^ directory
+!
+
+directory: aDirectory
+	directory _ aDirectory
+!
+
+initialize
+	directory _ FileDirectory default
+!
+
+isValid
+	^directory exists
+!
+
+readStreamForFileNamed: aString do: aBlock
+	| file val |
+	file _ FileStream readOnlyFileNamed: (directory fullNameFor: aString).
+	val _ aBlock value: file.
+	file close.
+	^ val
+!
+
+writeStreamForFileNamed: aString replace: aBoolean do: aBlock
+	| file sel |
+	sel _ aBoolean ifTrue: [#forceNewFileNamed:] ifFalse: [#newFileNamed:].
+	file _ FileStream perform: sel with: (directory fullNameFor: aString).
+	aBlock value: file.
+	file close.
+! !
+
+!MCDirectoryRepository methodsFor:'comparing'!
+
+hash
+	^ directory pathName hash
+! !
+
+!MCDirectoryRepository class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.1 2006-11-22 13:22:18 cg Exp $'
+! !