Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.270.mcz
==================== Summary ====================
Name: ST80-mt.270 Author: mt Time: 29 November 2021, 6:39:04.147615 pm UUID: 746975d8-ca24-46fc-8fa3-7dde8a3ac097 Ancestors: ST80-ct.269
Complements Tools-mt.1079
=============== Diff against ST80-ct.269 ===============
Item was removed: - ----- 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 - initialAnswer: suggestedName. - fileName isEmptyOrNil ifFalse: - [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]!
packages@lists.squeakfoundation.org