[Pkg] Monticello Public: Monticello.impl-mtf.575.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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
  !