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]!