A idea

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

A idea

Edgar J. De Cleene
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