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
squeak-dev@lists.squeakfoundation.org