[squeak-dev] The Trunk: System-tpr.993.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 28 20:15:27 UTC 2017


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
  !



More information about the Squeak-dev mailing list