[prev in list] [next in list] [prev in thread] [next in thread] 

List:       squeak-dev
Subject:    [squeak-dev] The Trunk: Kernel-tpr.1132.mcz
From:       commits () source ! squeak ! org
Date:       2017-12-28 21:03:45
Message-ID: E1eUfLS-00062o-E0 () andreas
[Download RAW message or body]

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


[prev in list] [next in list] [prev in thread] [next in thread]