Smalltalk › Squeak › Squeak - Dev

[squeak-dev] A idea

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

1 message

Edgar J. De Cleene

[squeak-dev] A idea

A idea 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