equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#MCRepository |
5 Object subclass:#MCRepository |
4 instanceVariableNames:'creationTemplate storeDiffs' |
6 instanceVariableNames:'creationTemplate storeDiffs' |
5 classVariableNames:'Settings' |
7 classVariableNames:'Settings' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
114 notifyList |
116 notifyList |
115 ^ #() |
117 ^ #() |
116 ! |
118 ! |
117 |
119 |
118 prepareVersionForStorage: aVersion |
120 prepareVersionForStorage: aVersion |
119 ^ self alwaysStoreDiffs |
121 self alwaysStoreDiffs ifTrue: [ |
120 ifTrue: [aVersion asDiffAgainst: |
122 ^ aVersion |
121 (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] |
123 asDiffAgainst: (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion]) |
122 ifFalse: [aVersion] |
124 ] ifFalse: [ |
|
125 ^ aVersion |
|
126 ] |
123 ! |
127 ! |
124 |
128 |
125 sendNotificationsForVersion: aVersion |
129 sendNotificationsForVersion: aVersion |
126 | notification notifyList | |
130 | notification notifyList | |
127 notifyList := self notifyList. |
131 notifyList := self notifyList. |
194 ! ! |
198 ! ! |
195 |
199 |
196 !MCRepository class methodsFor:'documentation'! |
200 !MCRepository class methodsFor:'documentation'! |
197 |
201 |
198 version |
202 version |
199 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $' |
203 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.8 2015-02-07 10:17:20 cg Exp $' |
200 ! |
204 ! |
201 |
205 |
202 version_CVS |
206 version_CVS |
203 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $' |
207 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.8 2015-02-07 10:17:20 cg Exp $' |
204 ! |
208 ! |
205 |
209 |
206 version_SVN |
210 version_SVN |
207 |
211 |
208 ^'$Id: MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $' |
212 ^'$Id: MCRepository.st,v 1.8 2015-02-07 10:17:20 cg Exp $' |
209 ! ! |
213 ! ! |
210 |
214 |
211 |
215 |
212 MCRepository initialize! |
216 MCRepository initialize! |