[etoys-dev] Etoys: System-bf.42.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-bf.42.mcz

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

Name: System-bf.42
Author: bf
Time: 17 September 2010, 9:45:27 pm
UUID: dab09dbf-984a-4daf-9410-ab4ae5a034f0
Ancestors: System-bf.41

Put manifest in front of project file, uncompressed for easier access.

=============== Diff against System-bf.41 ===============

Item was changed:
  ----- Method: Project>>compressFilesIn:to:in: (in category 'file in/out') -----
  compressFilesIn: tempDir to: localName in: localDirectory
  	"Compress all the files in tempDir making up a zip file in localDirectory named localName"
  
+ 	| archive archiveName entry fileNames |
+ 	archive := ZipArchive new.
+ 	fileNames := tempDir fileNames.
+ 	(fileNames includes: 'manifest')
+ 		ifTrue: [fileNames := #('manifest'), (fileNames copyWithout: 'manifest')].
+ 	fileNames do:[:fn|
+ 		archiveName := fn.
+ 		entry := archive addFile: (tempDir fullNameFor: fn) as: archiveName.
+ 		entry desiredCompressionMethod: (
+ 			fn = 'manifest'
+ 				ifTrue: [ZipArchive compressionLevelNone] 
+ 				ifFalse: [ZipArchive compressionDeflated]).
- 	| archive archiveName entry |
- 	archive _ ZipArchive new.
- 	tempDir fileNames do:[:fn|
- 		archiveName _ fn.
- 		entry _ archive addFile: (tempDir fullNameFor: fn) as: archiveName.
- 		entry desiredCompressionMethod: ZipArchive compressionDeflated.
  	].
  	archive writeToFileNamed: (localDirectory fullNameFor: localName).
  	archive close.
  	tempDir fileNames do:[:fn|
  		tempDir deleteFileNamed: fn ifAbsent:[]].
  	localDirectory deleteDirectory: tempDir localName.!