The Trunk: Morphic-mt.956.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.956.mcz

==================== Summary ====================

Name: Morphic-mt.956
Author: mt
Time: 1 May 2015, 8:52:04.62 pm
UUID: 9c194491-b261-5b4b-8e79-9806c257dc69
Ancestors: Morphic-mt.955

Some assumptions on model interface removed from text fields.

Missing #appendEntryLater added to text fields, which is needed for deferred transcript updates.

=============== Diff against Morphic-mt.955 ===============

Item was changed:
  ----- Method: PluggableTextMorph>>promptForCancel (in category 'unaccepted edits') -----
  promptForCancel
  "Ask if it is OK to cancel changes to text"
  (self confirm:
  'Changes have not been saved.
  Is it OK to cancel those changes?' translated)
+ ifTrue: [model changed: #clearUserEdits].
- ifTrue: [model clearUserEditFlag].
  !

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 == #autoSelect and: [getSelectionSelector notNil])
  ifTrue:
  [self handleEdit:
  [(textMorph editor)
  abandonChangeText; "no replacement!!"
  setSearch: model autoSelectString;
  againOrSame: true]].
  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]!