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!
squeak-dev@lists.squeakfoundation.org