MCRepository.st
author Claus Gittinger <cg@exept.de>
Fri, 25 Nov 2011 11:31:28 +0100
changeset 514 68b325cf69cb
parent 309 cbe9b5c3ad92
child 675 0f3c79b5226a
permissions -rw-r--r--
category changes
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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:''
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Monticello-Repositories'
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
allConcreteSubclasses
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	^ self withAllSubclasses reject: [:ea | ea isAbstract]
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
creationTemplate
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	self subclassResponsibility.
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
description
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
	^ nil
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
fillInTheBlankRequest
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
	self subclassResponsibility.
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
isAbstract
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
	^ self description isNil
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
morphicConfigure
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
	^ self new
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!MCRepository class methodsFor:'external settings'!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
fetchExternalSettingsIn: aDirectory
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
	"Scan for settings file"
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
	"MCRepository fetchExternalSettingsIn: ExternalSettings preferenceDirectory"
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
	| stream |
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
	(aDirectory fileExists: self settingsFileName)
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
		ifFalse: [^self].
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    57
	stream := aDirectory readOnlyFileNamed: self settingsFileName.
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
	stream
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
		ifNotNil: [
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    60
			[Settings := ExternalSettings parseServerEntryArgsFrom: stream]
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
				ensure: [stream close]].
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    62
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
releaseExternalSettings
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
	Settings := nil.
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    67
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
settingsFileName
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
	^ 'mcSettings'
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
! !
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    74
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    76
!MCRepository methodsFor:'as yet unclassified'!
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
alwaysStoreDiffs
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
	^ storeDiffs ifNil: [false]
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
asCreationTemplate
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
	^ self creationTemplate
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
closestAncestorVersionFor: anAncestry ifNone: errorBlock
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    87
	| v | 
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
	anAncestry breadthFirstAncestorsDo:
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
		[:ancestorInfo |
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
    90
		(v := self versionWithInfo: ancestorInfo) ifNotNil: [ ^ v]].
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
	^ errorBlock value
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
creationTemplate
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
	^ creationTemplate
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
creationTemplate: aString
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
	self creationTemplate ifNotNil: [ self error: 'Creation template already set for this MCRepository instance.' ].
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
	
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   101
	creationTemplate := aString.
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
description
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
	^ self class name
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
doAlwaysStoreDiffs
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   109
	storeDiffs := true
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
doNotAlwaysStoreDiffs
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   113
	storeDiffs := false
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
notificationForVersion: aVersion
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
	^ MCVersionNotification version: aVersion repository: self
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
notifyList
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
	^ #()
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
possiblyNewerVersionsOfAnyOf: someVersions
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
	^#()
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
prepareVersionForStorage: aVersion
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
	^ self alwaysStoreDiffs
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
		ifTrue: [aVersion asDiffAgainst:
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
				 (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])]
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
		ifFalse: [aVersion]
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
sendNotificationsForVersion: aVersion
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
	| notification notifyList |
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   137
	notifyList := self notifyList.
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
	notifyList isEmpty ifFalse:
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   139
		[notification := self notificationForVersion: aVersion.
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
		notifyList do: [:ea | notification notify: ea]]
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   141
! !
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   142
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   143
!MCRepository methodsFor:'comparing'!
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   144
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   145
= other
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   146
	^ other species = self species and: [other description = self description]
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   149
hash
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   150
	^ self description hash
106
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
!MCRepository methodsFor:'interface'!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
includesVersionNamed: aString
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
	self subclassResponsibility
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
versionWithInfo: aVersionInfo
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
	^ self versionWithInfo: aVersionInfo ifAbsent: [nil]
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
versionWithInfo: aVersionInfo ifAbsent: aBlock
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
	self subclassResponsibility 
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
! !
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   167
!MCRepository methodsFor:'printing & storing'!
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   168
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   169
basicStoreVersion: aVersion
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   170
	self subclassResponsibility
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   171
!
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   172
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   173
printOn: aStream
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   174
	super printOn: aStream.
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   175
	aStream
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   176
		nextPut: $(;
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   177
		nextPutAll: self description;
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   178
		nextPut: $).
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   179
!
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   180
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   181
storeVersion: aVersion
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   182
	self basicStoreVersion: (self prepareVersionForStorage: aVersion).
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   183
	self sendNotificationsForVersion: aVersion
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   184
! !
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   185
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
!MCRepository methodsFor:'testing'!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
isValid
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
	^true
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
! !
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
!MCRepository class methodsFor:'documentation'!
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
version
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   195
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.5 2011-11-25 10:31:28 cg Exp $'
137
98f158a061a2 more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents: 106
diff changeset
   196
!
98f158a061a2 more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents: 106
diff changeset
   197
98f158a061a2 more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents: 106
diff changeset
   198
version_CVS
514
68b325cf69cb category changes
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
   199
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.5 2011-11-25 10:31:28 cg Exp $'
210
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   200
!
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   201
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   202
version_SVN
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   203
6948613cd845 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 137
diff changeset
   204
    ^'§Id: MCRepository.st 18 2010-10-13 12:27:08Z vranyj1 §'
106
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
! !
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
5d9bfc22f97b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
MCRepository initialize!