[Pkg] The Trunk: Compression-fbs.35.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jun 28 19:44:55 UTC 2013

Frank Shearar uploaded a new version of Compression to project The Trunk:

==================== 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') -----
  	"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!

More information about the Packages mailing list