The Trunk: Compression-fbs.35.mcz

Frank Shearar uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-fbs.35.mcz

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

Name: Compression-fbs.35
Author: fbs
Time: 28 June 2013, 8:44:46.942 pm
UUID: 1dc85a45-cd8a-1644-aded-fbcf28435e5d
Ancestors: Compression-fbs.34

Push service-y stuff out of low level code into packages closer to the UI.

=============== Diff against Compression-fbs.34 ===============

Item was changed:
  ----- Method: FileStream>>viewGZipContents (in category '*Compression') -----
  viewGZipContents
  "View the contents of a gzipped file"
 
  | stringContents |
  self binary.
  stringContents := self contentsOfEntireFile.
+ stringContents := (GZipReadStream on: stringContents) upToEnd.
+ ^ stringContents asString withSqueakLineEndings.!
- stringContents := Cursor wait showWhile: [(GZipReadStream on: stringContents) upToEnd].
- stringContents := stringContents asString withSqueakLineEndings.
-
- UIManager default
- edit: stringContents
- label: 'Decompressed contents of: ', self localName!

Item was removed:
- ----- Method: GZipReadStream class>>serviceViewDecompress (in category 'fileIn/Out') -----
- serviceViewDecompress
-
- ^ SimpleServiceEntry
- provider: self
- label: 'view decompressed'
- selector: #viewContents:
- description: 'view decompressed'
- !

Item was removed:
- ----- Method: GZipReadStream class>>viewContents: (in category 'fileIn/Out') -----
- viewContents: fullFileName
- "Open the decompressed contents of the .gz file with the given name.  This method is only required for the registering-file-list of Squeak 3.3a and beyond, but does no harm in an earlier system"
-
- (FileStream readOnlyFileNamed: fullFileName) ifNotNil:
- [:aStream | aStream viewGZipContents]!

Item was changed:
  ----- Method: ZipArchive>>extractAllTo: (in category 'archive operations') -----
  extractAllTo: aDirectory
  "Extract all elements to the given directory"
+ self extractAllTo: aDirectory informing: nil.!
- UIManager default informUserDuring:[:bar|self extractAllTo: aDirectory informing: bar].!

Item was changed:
  ----- Method: ZipArchive>>extractAllTo:informing: (in category 'archive operations') -----
  extractAllTo: aDirectory informing: bar
+ "Extract all elements to the given directory, notifying the user of progress"
- "Extract all elements to the given directory"
  ^self extractAllTo: aDirectory informing: bar overwrite: false!