[Pkg] Monticello Public: PackageInfo-Base-kph.64.mcz

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

A new version of PackageInfo-Base was added to project Monticello Public:
http://www.squeaksource.com/mc/PackageInfo-Base-kph.64.mcz

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

Name: PackageInfo-Base-kph.64
Author: kph
Time: 12 December 2008, 1:29:08 am
UUID: 95e217d4-04eb-40d2-b256-60d07ae1f871
Ancestors: PackageInfo-Base-kph.63

fixed external files to include a directory named <packagename>

=============== Diff against PackageInfo-Base-kph.63 ===============

Item was changed:
  ----- Method: FileDirectory>>entriesRecursive:on: (in category '*packageinfo-base') -----
  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 ] ].
+ 	     aCollection add: (FileDirectory on: aFD)
- 			ifTrue: [ isRecursive ifTrue: [ (FileDirectory on: aFD) entriesRecursive: isRecursive on: aCollection ] ]
- 			ifFalse: [ aCollection add: (FileDirectory on: aFD) ]
  	].
   
  	^ aCollection!

Item was changed:
  ----- Method: PackageInfo>>externalFiles (in category 'naming') -----
  externalFiles
  	
  	| matches entries excludes |
  	
  	matches := self externalFilesMatches.
  	excludes := self externalFilesExclude.
  	
  	entries := (FileDirectory default entriesAsFDs) select: [ :aFD | matches anySatisfy: [ :match | match match: aFD localName ] ].
  	entries := entries reject: [ :aFD | excludes anySatisfy: [ :match | match match: aFD localName ] ].
  
  	entries addAll: (entries gather: [ :aFD | aFD allEntriesAsFDs ]).
  
+ 	entries := entries reject: [ :aFD | (aFD localName beginsWith: '.') or: [ aFD directoryEntry isDirectory ] ].
- 	entries := entries reject: [ :aFD | aFD localName beginsWith: '.' ].
  
  	^ entries !