Tim Felgentreff uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-tfel.49.mcz==================== Summary ====================
Name: Compression-tfel.49
Author: tfel
Time: 2 August 2016, 9:58:09.947368 am
UUID: 5a70e931-0a3d-0a4b-8a36-6a12e6ba8862
Ancestors: Compression-cmm.48, Compression-bf.1
merge from Squeakland Etoys image
=============== Diff against Compression-cmm.48 ===============
Item was changed:
----- Method: GZipReadStream class>>serviceDecompressToFile (in category 'fileIn/Out') -----
serviceDecompressToFile
^ FileModifyingSimpleServiceEntry
provider: self
+ label: 'decompress to file' translatedNoop
- label: 'decompress to file'
selector: #saveContents:
+ description: 'decompress to file' translatedNoop!
- description: 'decompress to file'!
Item was changed:
----- Method: GZipReadStream class>>serviceFileIn (in category 'fileIn/Out') -----
serviceFileIn
"Answer a service for filing in an entire file"
^ SimpleServiceEntry
provider: self
+ label: 'fileIn entire file' translatedNoop
- label: 'fileIn entire file'
selector: #fileIn:
+ description: 'file in the entire decompressed contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format' translatedNoop
+ buttonLabel: 'filein' translatedNoop
- description: 'file in the entire decompressed contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format'
- buttonLabel: 'filein'
!
Item was changed:
----- Method: GZipReadStream class>>serviceFileIntoNewChangeSet (in category 'fileIn/Out') -----
serviceFileIntoNewChangeSet
"Answer a service for filing in an entire file"
^ SimpleServiceEntry
provider: self
+ label: 'install into new change set' translatedNoop
- label: 'install into new change set'
selector: #fileIntoNewChangeSet:
+ description: 'install the decompressed contents of the file as a body of code in the image: create a new change set and file-in the selected file into it' translatedNoop
+ buttonLabel: 'install' translatedNoop!
- description: 'install the decompressed contents of the file as a body of code in the image: create a new change set and file-in the selected file into it'
- buttonLabel: 'install'!
Item was changed:
----- Method: GZipWriteStream class>>serviceCompressFile (in category 'file list services') -----
serviceCompressFile
^ FileModifyingSimpleServiceEntry
provider: self
+ label: 'compress file' translatedNoop
- label: 'compress file'
selector: #compressFile:
+ description: 'compress file using gzip compression, making a new file' translatedNoop!
- description: 'compress file using gzip compression, making a new file'!