Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1804.mcz
==================== Summary ====================
Name: Morphic-mt.1804 Author: mt Time: 29 November 2021, 6:38:28.129615 pm UUID: 7dcadcec-4dd8-4376-b0f0-8e9979c444ff Ancestors: Morphic-mt.1803
Complements Tools-mt.1079.
=============== Diff against Morphic-mt.1803 ===============
Item was removed: - ----- Method: PluggableTextMorph>>saveContentsInFile (in category 'menu commands') ----- - saveContentsInFile - self handleEdit: [textMorph editor saveContentsInFile]!
Item was changed: ----- Method: PluggableTextMorph>>update: (in category 'updating') ----- update: aSymbol aSymbol ifNil: [^self]. aSymbol == #flash ifTrue: [^self flash].
aSymbol == getTextSelector ifTrue: [ self setText: self getText. getSelectionSelector ifNotNil: [self setSelection: self getSelection]. ^ self]. aSymbol == getSelectionSelector ifTrue: [^self setSelection: self getSelection].
aSymbol == #acceptChanges ifTrue: [^ self accept]. aSymbol == #revertChanges ifTrue: [^ self cancel].
(aSymbol == #autoSelect and: [getSelectionSelector notNil]) ifTrue: [self handleEdit: [(textMorph editor) abandonChangeText; "no replacement!!" setSearch: model autoSelectString; findAgainNow "do not reset search string"]]. aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false]. aSymbol == #wantToChange ifTrue: [self canDiscardEdits ifFalse: [^self promptForCancel]. ^self]. aSymbol == #appendEntry ifTrue: [self handleEdit: [self appendEntry]. ^self refreshWorld]. aSymbol == #appendEntryLater ifTrue: [self handleEdit: [self appendEntry]]. aSymbol == #clearText ifTrue: [self handleEdit: [self changeText: Text new]. ^self refreshWorld]. aSymbol == #bs ifTrue: [self handleEdit: [self bsText]. ^self refreshWorld]. aSymbol == #codeChangedElsewhere ifTrue: [self hasEditingConflicts: true. ^self changed]. aSymbol == #saveContents ifTrue: + [^(self respondsTo: #saveContentsInFile) ifTrue: [self saveContentsInFile]]. - [^self saveContentsInFile]. aSymbol == #showContents ifTrue: [^ self scrollToTop]. !
Item was removed: - ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- - saveContentsInFile - "Save the receiver's contents string to a file, which usually prompts the user for a file name." - - self paragraph text string - ifEmpty: [self inform: 'Nothing to save.'] - ifNotEmpty: [:stringToSave | - (self model saveContents: stringToSave accessMode: #create) - ifTrue: [ - self flag: #discuss. "mt: Is this correct? Having unaccepted contents means that the model does not know about it. Do we assume that the model will also keep track of the stringToSave?" - self morph hasUnacceptedEdits: false]].!
packages@lists.squeakfoundation.org