[Pkg] The Trunk: ST80-tpr.233.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 8 00:45:55 UTC 2018
tim Rowledge uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-tpr.233.mcz
==================== Summary ====================
Name: ST80-tpr.233
Author: tpr
Time: 7 January 2018, 4:44:46.985177 pm
UUID: c7bef0c0-1026-4f40-a074-add958b89220
Ancestors: ST80-nice.232
Update some MVC related code to use the hooks that might oneday allow them to use a nice graphical file dialog
=============== Diff against ST80-nice.232 ===============
Item was changed:
----- Method: BitEditor>>fileOut (in category 'menu messages') -----
fileOut
| fileName |
fileName := UIManager default
+ saveFilenameRequest: 'Save this Form to' translated
- request: 'File name?' translated
initialAnswer: 'Filename.form'.
+ fileName ifNil: [^ self].
- fileName isEmpty ifTrue: [^ self].
Cursor normal
showWhile: [model writeOnFileNamed: fileName].
!
Item was changed:
----- Method: FormEditor>>fileInForm (in category 'editing tools') -----
fileInForm
"Ask the user for a file name and then recalls the Form in that file as the current source Form (form). Does not change the tool."
| fileName |
fileName := UIManager default
+ chooseFileMatchingSuffixes: #('form')
+ label: 'File name?' translated.
+ fileName ifNil: [^ self].
- request: 'File name?' translated
- initialAnswer: 'Filename.form'.
- fileName isEmpty ifTrue: [^ self].
form := Form fromFileNamed: fileName.
tool := previousTool.
!
Item was changed:
----- Method: FormEditor>>fileOut (in category 'menu messages') -----
fileOut
| fileName |
fileName := UIManager default
+ saveFilenameRequest: 'File name?' translated
- request: 'File name?' translated
initialAnswer: 'Filename.form'.
+ fileName ifNil: [^ self].
- fileName isEmpty ifTrue: [^ self].
Cursor normal
showWhile: [model writeOnFileNamed: fileName].
!
Item was changed:
----- Method: FormEditor>>fileOutForm (in category 'editing tools') -----
fileOutForm
"Ask the user for a file name and save the current source form under that name. Does not change the tool."
| fileName |
fileName := UIManager default
+ saveFilenameRequest: 'File name?' translated
- request: 'File name?' translated
initialAnswer: 'Filename.form'.
+ fileName ifNil: [^ self].
- fileName isEmpty ifTrue: [^ self].
Cursor normal
showWhile: [form writeOnFileNamed: fileName].
tool := previousTool.
!
Item was changed:
----- Method: ParagraphEditor>>saveContentsInFile (in category 'menu messages') -----
saveContentsInFile
"Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name."
| fileName stringToSave parentWindow labelToUse suggestedName |
stringToSave := paragraph text string.
stringToSave size = 0 ifTrue: [^ self inform: 'nothing to save.'].
parentWindow := self model dependents
detect: [:dep | dep isKindOf: SystemWindow orOf: StandardSystemView]
ifNone: [nil].
labelToUse := parentWindow
ifNil: ['Untitled']
ifNotNil: [parentWindow label].
suggestedName := nil.
#(('Decompressed contents of: ' '.gz')) do: "can add more here..."
[:leaderTrailer | | lastIndex |
(labelToUse beginsWith: leaderTrailer first) ifTrue:
[suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size.
(labelToUse endsWith: leaderTrailer last)
ifTrue:
[suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size]
ifFalse:
[lastIndex := suggestedName lastIndexOf: $..
(lastIndex > 1) ifTrue:
[suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]].
suggestedName ifNil:
[suggestedName := labelToUse, '.text'].
+ fileName := UIManager default saveFilenameRequest: 'File name?' translated
- fileName := UIManager default request: 'File name?' translated
initialAnswer: suggestedName.
fileName isEmptyOrNil ifFalse:
[(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]!
More information about the Packages
mailing list