The Inbox: Morphic-cbc.1667.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-cbc.1667.mcz

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

Name: Morphic-cbc.1667
Author: cbc
Time: 6 June 2020, 10:07:33.767262 am
UUID: daa6731c-e807-b34c-8437-2d565f5b2053
Ancestors: Morphic-ct.1666

Lock multichoice confirmation dialog message text, so that the keyboard options are always available.

All other DialogWindows will still allow keyboard interaction with their message after clicking on the message.

=============== Diff against Morphic-ct.1666 ===============

Item was changed:
  ----- Method: UserDialogBoxMorph class>>confirm:title:trueChoice:falseChoice:at: (in category 'utilities') -----
  confirm: aString title: titleString trueChoice: trueChoice falseChoice: falseChoice at: aPointOrNil
  "UserDialogBoxMorph confirm: 'Make your choice carefully' withCRs title: 'Do you like chocolate?' trueChoice: 'Oh yessir!!' falseChoice: 'Not so much...'"
  ^self new
  title: titleString;
+ lockMessage: aString;
- message: aString;
  createButton: trueChoice translated value: true;
  createButton: falseChoice translated value: false;
  createCancelButton: 'Cancel' translated translated value: nil;
  selectedButtonIndex: 1;
  registerKeyboardShortcuts;
  preferredPosition: (aPointOrNil ifNil: [ActiveWorld center]);
  getUserResponse!

Item was added:
+ ----- Method: UserDialogBoxMorph>>lockMessage: (in category 'accessing') -----
+ lockMessage: aStringOrText
+
+ messageMorph contents: aStringOrText.
+ self setMessageParameters.
+ messageMorph lock.!