hg/stx-goodies-monticello: MCRepository.st@6a56267a1e3c (annotated)

106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	Object subclass:#MCRepository
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'creationTemplate storeDiffs'
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:'Settings'
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
675 0f3c79b5226a category change Claus Gittinger <cg@exept.de> parents: 514 diff changeset	7	category:'SCM-Monticello-Repositories'
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	11	!MCRepository class methodsFor:'initialization'!
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	12
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	13	initialize
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	14	"self initialize"
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	15	"
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	16	ExternalSettings registerClient: self.
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	17	"
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	18
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	19	"Modified: / 13-10-2010 / 14:13:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	20	! !
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	21
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!MCRepository class methodsFor:'as yet unclassified'!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	fillInTheBlankRequest
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	self subclassResponsibility.
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	morphicConfigure
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	^ self new
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!MCRepository class methodsFor:'external settings'!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	fetchExternalSettingsIn: aDirectory
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	"Scan for settings file"
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	"MCRepository fetchExternalSettingsIn: ExternalSettings preferenceDirectory"
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	\| stream \|
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	(aDirectory fileExists: self settingsFileName)
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	ifFalse: [^self].
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	41	stream := aDirectory readOnlyFileNamed: self settingsFileName.
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	stream
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	ifNotNil: [
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	44	[Settings := ExternalSettings parseServerEntryArgsFrom: stream]
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	ensure: [stream close]].
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	46
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	releaseExternalSettings
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	Settings := nil.
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	51
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	settingsFileName
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	^ 'mcSettings'
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	58	!MCRepository class methodsFor:'queries'!
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	60	allConcreteSubclasses
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	61	^ self withAllSubclasses reject: [:ea \| ea isAbstract]
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	62	!
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	63
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	64	creationTemplate
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	65	self subclassResponsibility.
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	68	description
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	69	^ nil
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	72	isAbstract
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	73	^ self description isNil
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	74	! !
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	75
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	76	!MCRepository methodsFor:'accessing'!
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	creationTemplate
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	^ creationTemplate
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	creationTemplate: aString
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	self creationTemplate ifNotNil: [ self error: 'Creation template already set for this MCRepository instance.' ].
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	85	creationTemplate := aString.
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	description
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	^ self class name
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	90	! !
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	91
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	92	!MCRepository methodsFor:'as yet unclassified'!
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	93
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	94	alwaysStoreDiffs
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	95	^ storeDiffs ifNil: [false]
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	96	!
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	97
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	98	asCreationTemplate
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	99	^ self creationTemplate
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	doAlwaysStoreDiffs
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	103	storeDiffs := true
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	doNotAlwaysStoreDiffs
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	107	storeDiffs := false
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	notificationForVersion: aVersion
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	^ MCVersionNotification version: aVersion repository: self
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	notifyList
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	^ #()
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	prepareVersionForStorage: aVersion
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	^ self alwaysStoreDiffs
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	ifTrue: [aVersion asDiffAgainst:
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	(self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])]
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	ifFalse: [aVersion]
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	sendNotificationsForVersion: aVersion
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	\| notification notifyList \|
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	127	notifyList := self notifyList.
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	notifyList isEmpty ifFalse:
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	129	[notification := self notificationForVersion: aVersion.
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	notifyList do: [:ea \| notification notify: ea]]
514 68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	131	! !
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	132
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	133	!MCRepository methodsFor:'comparing'!
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	134
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	135	= other
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	136	^ other species = self species and: [other description = self description]
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138
514 68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	139	hash
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	140	^ self description hash
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	!MCRepository methodsFor:'interface'!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	includesVersionNamed: aString
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	self subclassResponsibility
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	versionWithInfo: aVersionInfo
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	^ self versionWithInfo: aVersionInfo ifAbsent: [nil]
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	versionWithInfo: aVersionInfo ifAbsent: aBlock
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	self subclassResponsibility
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156
514 68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	157	!MCRepository methodsFor:'printing & storing'!
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	158
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	159	basicStoreVersion: aVersion
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	160	self subclassResponsibility
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	161	!
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	162
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	163	printOn: aStream
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	164	super printOn: aStream.
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	165	aStream
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	166	nextPut: $(;
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	167	nextPutAll: self description;
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	168	nextPut: $).
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	169	!
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	170
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	171	storeVersion: aVersion
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	172	self basicStoreVersion: (self prepareVersionForStorage: aVersion).
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	173	self sendNotificationsForVersion: aVersion
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	174	! !
68b325cf69cb category changes Claus Gittinger <cg@exept.de> parents: 309 diff changeset	175
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	176	!MCRepository methodsFor:'queries'!
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	177
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	178	closestAncestorVersionFor: anAncestry ifNone: errorBlock
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	179	\| v \|
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	180	anAncestry breadthFirstAncestorsDo:
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	181	[:ancestorInfo \|
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	182	(v := self versionWithInfo: ancestorInfo) ifNotNil: [ ^ v]].
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	183	^ errorBlock value
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	184	!
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	185
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	186	possiblyNewerVersionsOfAnyOf: someVersions
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	187	^#()
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	188	! !
6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	189
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	!MCRepository methodsFor:'testing'!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	isValid
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	^true
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	!MCRepository class methodsFor:'documentation'!
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	version
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	199	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
137 98f158a061a2 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 106 diff changeset	200	!
98f158a061a2 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 106 diff changeset	201
98f158a061a2 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 106 diff changeset	202	version_CVS
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	203	^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
210 6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	204	!
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	205
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	206	version_SVN
6948613cd845 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 137 diff changeset	207
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	208	^'$Id: MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	! !
5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210
910 6a56267a1e3c categories Claus Gittinger <cg@exept.de> parents: 675 diff changeset	211
106 5d9bfc22f97b initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	MCRepository initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 12 Feb 2014 15:53:41 +0100
changeset 910	6a56267a1e3c
parent 675	0f3c79b5226a
child 965	e5e12ca03097
permissions	-rw-r--r--