[Pkg] Monticello Public: Monticello.impl-kph.599.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-kph.599.mcz

==================== Summary ====================

Name: Monticello.impl-kph.599
Author: kph
Time: 7 December 2008, 1:31:41 am
UUID: 0f84c569-e453-4e89-a746-3be067646357
Ancestors: Monticello.impl-kph.598

+ Files support working (fully debuggged?)
- Dont hang on to cruft that is intended to make MC loadable in older MCs we have LPF now

=============== Diff against Monticello.impl-kph.598 ===============

Item was changed:
  ----- Method: MCFileDefinition class>>from:addTo: (in category 'as yet unclassified') -----
  from: aPackageInfo addTo: definitions
  	
+ 	| trim |
- 	| entries matches trim |
  	
- 	matches := aPackageInfo externalFilesMatches.
- 	
- 	entries := (FileDirectory default entriesAsFDs) select: [ :aFD | matches anySatisfy: [ :match | match match: aFD localName ] ].
- 
- 	entries addAll: (entries gather: [ :aFD | aFD allEntriesAsFDs ]).
- 
  	trim := FileDirectory default fullName size + 1.
+ 	
+ 	^ aPackageInfo externalFiles collect: [ :aFD | 
+ 		definitions add: (self path: (aFD fullName allButFirst: trim) packageName: aPackageInfo name) realize ].
- 		
- 	^ entries collect: [ :aFD | definitions add: (self path: (aFD fullName allButFirst: trim) packageName: aPackageInfo name) realize ].
  
  	!

Item was removed:
- ----- Method: FileDirectory>>entriesAsFDs (in category '*monticello') -----
- entriesAsFDs
- 
- 	^ self entriesRecursive: false on: OrderedCollection new
-  !

Item was removed:
- ----- Method: FileDirectory>>entriesRecursive:on: (in category '*monticello') -----
- entriesRecursive: isRecursive on: aCollection
- 	
- 	| aFD |
- 		
- 	self entries do: [ :dirEntry | 
- 	
- 		aFD := self fullNameFor: dirEntry name.
- 
- 		dirEntry isDirectory 
- 			ifTrue: [ isRecursive ifTrue: [ (FileDirectory on: aFD) entriesRecursive: isRecursive on: aCollection ] ]
- 			ifFalse: [ aCollection add: (FileDirectory on: aFD) ]
- 	].
-  
- 	^ aCollection!

Item was removed:
- ----- Method: FileDirectory>>allEntriesAsFDs (in category '*monticello') -----
- allEntriesAsFDs
- 
- 	^ self entriesRecursive: true on: OrderedCollection new
-  !