[squeak-dev] The Trunk: System-fbs.549.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jun 28 19:46:10 UTC 2013


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].!



More information about the Squeak-dev mailing list