The Trunk: ST80-ct.255.mcz

Nicolas Cellier uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-ct.255.mcz

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

Name: ST80-ct.255
Author: ct
Time: 6 June 2020, 3:48:16.215278 pm
UUID: 5469be3e-28ef-c54e-952c-674500374c05
Ancestors: ST80-nice.254

Fix Transcript in MVC projects if preference 'Force transcript updates to screen' is disabled.

Thanks to Marcel (mt) for the hint!

=============== Diff against ST80-nice.254 ===============

Item was changed:
  ----- Method: PluggableTextView>>update: (in category 'updating') -----
  update: aSymbol
  "Refer to the comment in View|update:. Do nothing if the given symbol does not match any action. "
 
  aSymbol == #wantToChange ifTrue:
  [self canDiscardEdits ifFalse: [self promptForCancel].  ^ self].
  aSymbol == #flash ifTrue: [^ controller flash].
  aSymbol == getTextSelector ifTrue: [^ self updateDisplayContents].
  aSymbol == getSelectionSelector ifTrue: [^ self setSelection: self getSelection].
  aSymbol == #clearUserEdits ifTrue: [^ self hasUnacceptedEdits: false].
  (aSymbol == #autoSelect and: [getSelectionSelector ~~ nil]) ifTrue:
  [ParagraphEditor abandonChangeText. "no replacement!!"
  ^ controller setSearch: model autoSelectString;
  againOrSame: true].
+ (#(#appendEntry appendEntryLater) includes: aSymbol) ifTrue:
- aSymbol == #appendEntry ifTrue:
  [^ controller doOccluded: [controller appendEntry]].
  aSymbol == #clearText ifTrue:
  [^ controller doOccluded:
  [controller changeText: Text new]].
  aSymbol == #bs ifTrue:
  [^ controller doOccluded:
  [controller bsText]].
  aSymbol == #codeChangedElsewhere ifTrue:
  [^ self hasEditingConflicts: true].
  aSymbol == #saveContents ifTrue:
  [^self controller saveContentsInFile].
  aSymbol == #close ifTrue:
  [^self topView controller closeAndUnscheduleNoTerminate].
  aSymbol == #acceptChanges ifTrue:
  [^ self controller accept].
  aSymbol == #revertChanges ifTrue:
  [^ self controller cancel].!