A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.575.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.575 Author: mtf Time: 3 October 2008, 10:15:23 pm UUID: c41000cc-8804-4eca-a90c-130f6a43af17 Ancestors: Monticello.impl-mtf.574
Uses Matthew's experimental single-pass snapshotter from PackageInfo-Base-mtf.54
=============== Diff against Monticello.impl-mtf.574 ===============
Item was changed: ----- Method: MCPackage>>snapshot (in category 'as yet unclassified') ----- snapshot | definitions categories packageInfo |
packageInfo := self packageInfo. definitions := OrderedCollection new. categories := packageInfo systemCategories. definitions addAll: (self orphanage orphansFor: packageInfo). definitions removeAllFoundIn: self orphanage unlinkedClasses. categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ]. - packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods... '. - - (packageInfo respondsTo: #overriddenMethods) ifTrue: - [ packageInfo overriddenMethods - do: [:ea | definitions add: - (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition] - displayingProgress: 'Searching for overrides...'].
+ packageInfo + classesDo: [:ea | definitions addAll: ea classDefinitions] + methodsDo: [:ea | definitions add: ea asMethodDefinition]. - packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...'. MCScriptDefinition subclassesDo: [ :ea | ea from: packageInfo addTo: definitions ].
^ MCSnapshot fromDefinitions: definitions !