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