The Trunk: System-fbs.549.mcz

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

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

Name: System-fbs.549
Author: fbs
Time: 28 June 2013, 8:45:25.76 pm
UUID: 217705f1-4e04-b04c-a09c-31e343182089
Ancestors: System-fbs.548

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

=============== Diff against System-fbs.548 ===============

Item was changed:
  ----- Method: ExternalDropHandler class>>defaultGZipHandler (in category 'private') -----
  defaultGZipHandler
  ^ExternalDropHandler
  type: nil
  extension: 'gz'
+ action: [:stream :pasteUp :event | | contents |
+ contents := Cursor wait showWhile: [stream viewGZipContents].
+ UIManager default
+ edit: contents
+ label: 'Decompressed contents of: ', stream localName].!
- action: [:stream :pasteUp :event |
- stream viewGZipContents]!

Item was added:
+ ----- Method: GZipReadStream class>>serviceViewDecompress (in category '*System-FileRegistry') -----
+ serviceViewDecompress
+
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'view decompressed'
+ selector: #viewContents:
+ description: 'view decompressed'
+ !

Item was added:
+ ----- Method: GZipReadStream class>>viewContents: (in category '*System-FileRegistry') -----
+ 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 | | contents |
+ contents := Cursor wait showWhile: [aStream viewGZipContents].
+ UIManager default
+ edit: contents
+ label: 'Decompressed contents of: ', aStream localName].!