[squeak-dev] The Trunk: Kernel-cmm.581.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 4 19:01:19 UTC 2011


Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.581.mcz

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

Name: Kernel-cmm.581
Author: cmm
Time: 4 May 2011, 1:59:30.972 pm
UUID: ef06ace4-3546-4a3e-aae0-91c22cc7dd8a
Ancestors: Kernel-cmm.580

Factor out domain work from UI work; so that applications may save an object on file.

=============== Diff against Kernel-cmm.580 ===============

Item was changed:
  ----- Method: Object>>saveOnFile (in category 'objects from disk') -----
  saveOnFile
  	"Ask the user for a filename and save myself on a SmartReferenceStream file.  Writes out the version and class structure.  The file is fileIn-able.  Does not file out the class of the object.  tk 6/26/97 13:48"
  
+ 	| aFileName |
- 	| aFileName fileStream |
  	aFileName := self class name asFileName.	"do better?"
  	aFileName := UIManager default 
  				request: 'File name?' translated initialAnswer: aFileName.
  	aFileName size = 0 ifTrue: [^ Beeper beep].
  
+ 	self saveOnFileNamed: aFileName!
- 	fileStream := FileStream newFileNamed: aFileName asFileName.
- 	fileStream fileOutClass: nil andObject: self.!

Item was added:
+ ----- Method: Object>>saveOnFileNamed: (in category 'objects from disk') -----
+ saveOnFileNamed: filenameString
+ 	"Save myself on a SmartReferenceStream file.  Writes out the version and class structure.  The file is fileIn-able.  UniClasses will be filed out."
+ 	| fileStream |
+ 	fileStream := FileStream newFileNamed: filenameString asFileName.
+ 	fileStream fileOutClass: nil andObject: self.	"Puts UniClass definitions out anyway, and closes the stream."!




More information about the Squeak-dev mailing list