The Trunk: ReleaseBuilder-edc.48.mcz

Edgar J. De Cleene uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-edc.48.mcz

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

Name: ReleaseBuilder-edc.48
Author: edc
Time: 18 February 2010, 7:55:40.136 am
UUID: 2a249794-2ee7-417a-b9ca-a746f828f54a
Ancestors: ReleaseBuilder-dtl.47

ReleaseBuilderFor3dot11 new createCompressedSources is fixed and make the dir and files

=============== Diff against ReleaseBuilder-dtl.47 ===============

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
  createCompressedSources
  " ReleaseBuilderFor3dot11 new createCompressedSources"
 
  ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir |
  dir := self createDirIfnotExists:cl category.
 
 
  Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
+ nameToUse :=  cl printString , FileDirectory dot, ImageSegment compressedFileExtension.
- nameToUse :=  cl printString .
  (dir fileExists: nameToUse) ifFalse:[
  unzipped :=RWBinaryOrTextStream on: ''.
  unzipped header; timeStamp.
  cl  fileOutOn: unzipped moveSource: false toFile: 0.
  unzipped trailer.
 
  unzipped reset.
+ zipped := dir newFileNamed: (nameToUse).
- zipped := dir newFileNamed: (nameToUse, FileDirectory dot, ImageSegment compressedFileExtension).
  zipped binary.
  zipped := GZipWriteStream on: zipped.
  buffer := ByteArray new: 50000.
  'Compressing ', nameToUse displayProgressAt: Sensor cursorPoint
  from: 0 to: unzipped size
  during:[:bar|
  [unzipped atEnd] whileFalse:[
  bar value: unzipped position.
  zipped nextPutAll: (unzipped nextInto: buffer)].
  zipped close.
  unzipped close]]]] startingLevel: 0!