|
|
Again I said we should have the number of update
My own is
!MCPackageLoader methodsFor: 'private' stamp: 'edc 9/1/2009 03:37' prior:
34174438!
useChangeSetNamed: baseName during: aBlock
"Use the named change set, or create one with the given name."
| changeHolder oldChanges newChanges csName |
changeHolder := (ChangeSet respondsTo: #newChanges:)
ifTrue: [ChangeSet]
ifFalse: [Smalltalk].
oldChanges := (ChangeSet respondsTo: #current)
ifTrue: [ChangeSet current]
ifFalse: [Smalltalk changes].
csName := (SystemVersion current highestUpdate + 1) asString,baseName.
newChanges := (ChangesOrganizer changeSetNamed: csName) ifNil: [
ChangeSet new name: csName ].
changeHolder newChanges: newChanges.
[aBlock value] ensure: [changeHolder newChanges: oldChanges].
SystemVersion current registerUpdate: SystemVersion current highestUpdate +
1
! !
Also , at the end of daily updates from trunk, we should have
MCFileBasedRepository flushAllCaches.
My 5 centavos de peso , less of 1 cent of euro
Edgar
|
Locked
