[Pkg] Monticello Public: Monticello.impl-kph.615.mcz

[Ken G. Brown]

In sq3.10.2-7179dev09.01.1 with LPF and Tasks, this change appears to have fixed Andreas's problem with browsing
Balloon3D-Constants-ar.4 in
MCHttpRepository
	location: 'http://www.squeaksource.com/Balloon3D'
	user: ''
	password: ''

I saw the problem before and do not see it after this fix.

Ken G. Brown


At 2:38 PM +0100 1/16/09, squeak-dev-noreply at lists.squeakfoundation.org apparently wrote:
>A new version of Monticello.impl was added to project Monticello Public:
>http://www.squeaksource.com/mc/Monticello.impl-kph.615.mcz
>
>==================== Summary ====================
>
>Name: Monticello.impl-kph.615
>Author: kph
>Time: 16 January 2009, 1:37:49 pm
>UUID: 632d9796-1715-4624-a10b-a089f12e05b0
>Ancestors: Monticello.impl-kph.614
>
>fix enabling load of packages that do not have a snapshot.bin
>
>=============== Diff against Monticello.impl-kph.614 ===============
>
>Item was changed:
>  ----- Method: MCSnapshot class>>empty (in category 'as yet unclassified') -----
>  empty
>+	^ self fromDefinitions: OrderedCollection new!
>-	^ self fromDefinitions: #()!
>
>Item was changed:
>  ----- Method: MCMczReader>>loadSnapshot (in category 'as yet unclassified') -----
>  loadSnapshot
>  	(self zip memberNamed: 'snapshot.bin') ifNotNilDo:
> 		[:m | [^ snapshot := (DataStream on: m contentStream) next ]
> 			on: Error do: [:fallThrough |  self halt ]].
>+	
>+	snapshot := MCSnapshot empty.
>+	
>-		
> 	"otherwise"
> 	(self zip membersMatching: 'snapshot/*')
> 		do: [:m | self extractDefinitionsFrom: m].
> 
> 	(self zip membersMatching: 'files/*')
> 		do: [:m | self extractFileFrom: m].
>  !
>
>Item was changed:
>  ----- Method: MCMczReader>>extractDefinitionsFrom: (in category 'as yet unclassified') -----
>  extractDefinitionsFrom: member
> 	| reader |
> 	(MCSnapshotReader readerClassForFileNamed: member fileName)
> 		ifNotNilDo: [:rc | reader := rc on: member contentStream text.
>+					snapshot definitions addAll: reader definitions]
>-					definitions addAll: reader definitions]
>  !