The Trunk: System-tpr.993.mcz

tim Rowledge uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tpr.993.mcz

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

Name: System-tpr.993
Author: tpr
Time: 28 December 2017, 12:14:53.711212 pm
UUID: b0b7616c-47d9-4b95-a35e-ab2d79268f5f
Ancestors: System-eem.992

Connect the image saving process to the new FileSaverDialog.
Likewise for FilePackage fileout.

=============== Diff against System-eem.992 ===============

Item was changed:
  ----- Method: FilePackage>>fileOut (in category 'fileIn/fileOut') -----
  fileOut
+ "Ask the user for a file path where I should save my contents; if the file already exists ask for a replacement name"
+ | fileName |
+ fileName := UIManager default saveFilenameRequest: 'Enter the file name' initialAnswer: self fullPackageName.
+ fileName ifNil:[^self].
+ [FileStream
+ newFileNamed: fileName
+ do: [:stream |
+ sourceSystem isEmpty
+ ifFalse: [stream nextChunkPut: sourceSystem printString;
+ cr].
+ self fileOutOn: stream.
+ stream cr; cr.
+ self classes do: [:cls | cls needsInitialize
+ ifTrue: [stream cr; nextChunkPut: cls name , ' initialize']].
+ stream cr]
+ ] on: FileExistsException
+ do: [:ex |  fileName := UIManager default saveFilenameRequest: 'Last entered filename already exists; try again' initialAnswer: self fullPackageName.
+ ex retry]!
- | fileName stream |
- fileName := UIManager default request: 'Enter the file name' initialAnswer:''.
- stream := FileStream newFileNamed: fileName.
- sourceSystem isEmpty ifFalse:[
- stream nextChunkPut: sourceSystem printString;cr ].
- self fileOutOn: stream.
- stream cr; cr.
- self classes do:[:cls|
- cls needsInitialize ifTrue:[
- stream cr; nextChunkPut: cls name,' initialize']].
- stream cr.
- stream close.
-
- "DeepCopier new checkVariables."
- !

Item was changed:
  ----- Method: SmalltalkImage>>getFileNameFromUserSuggesting: (in category 'snapshot and quit') -----
  getFileNameFromUserSuggesting: aName
  "Ask the user for a new image name"
  | newName |
  newName := UIManager default
+ saveFilenameRequest: 'Save Image as new name...' translated
- request: 'New File Name?' translated
  initialAnswer: aName.
+ newName ifNil: [^nil].
- newName isEmpty ifTrue: [^nil].
  ((FileDirectory default fileOrDirectoryExists: (self fullNameForImageNamed: newName)) or:
  [FileDirectory default fileOrDirectoryExists: (self fullNameForChangesNamed: newName)]) ifTrue: [
  (self confirm: ('{1} already exists. Overwrite?' translated format: {newName})) ifFalse: [^nil]].
  ^newName
  !