Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1221.mcz==================== Summary ====================
Name: Morphic-mt.1221
Author: mt
Time: 2 August 2016, 10:09:26.611882 am
UUID: 49b92f76-cbe0-b442-8c78-770e30243990
Ancestors: Morphic-mt.1220
Let models such as HelpBrowser signal content changes that require a fresh start at the top. (Differentiate from appended content updates where a scroll-to-top would annoy the user who is scrolling down and in the process of reading).
=============== Diff against Morphic-mt.1220 ===============
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;
findAgain]].
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 saveContentsInFile].
+ aSymbol == #showContents
+ ifTrue:
+ [^ self scrollToTop].
!
Locked
