tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.1132.mcz
==================== Summary ====================
Name: Kernel-tpr.1132 Author: tpr Time: 28 December 2017, 1:03:32.733076 pm UUID: 819452da-5a97-40d9-8a6a-9f705d64117a Ancestors: Kernel-eem.1131
Use new file dialog for object saving
=============== Diff against Kernel-eem.1131 ===============
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." - "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 := self class name asFileName. "do better?" aFileName := UIManager default + saveFilenameRequest: 'File name?' translated initialAnswer: aFileName. + aFileName ifNil: [^ Beeper beep]. - request: 'File name?' translated initialAnswer: aFileName. - aFileName size = 0 ifTrue: [^ Beeper beep].
self saveOnFileNamed: aFileName!
Item was changed: ----- 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. - fileStream := FileStream newFileNamed: filenameString asFileName. fileStream fileOutClass: nil andObject: self. "Puts UniClass definitions out anyway, and closes the stream."!