MCWriteOnlyRepository.st
changeset 119 9f3fb5a88a69
child 240 7adda2d16d93
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCWriteOnlyRepository.st	Wed Nov 22 14:23:08 2006 +0100
@@ -0,0 +1,29 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCRepository subclass:#MCWriteOnlyRepository
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Repositories'
+!
+
+
+!MCWriteOnlyRepository methodsFor:'as yet unclassified'!
+
+includesVersionNamed: aString
+	^ false
+!
+
+morphicOpen: aWorkingCopy
+	self inform: 'This repository is write-only'
+!
+
+versionWithInfo: aVersionInfo ifAbsent: aBlock
+	^ aBlock value
+! !
+
+!MCWriteOnlyRepository class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriteOnlyRepository.st,v 1.1 2006-11-22 13:23:08 cg Exp $'
+! !