The Trunk: Morphic-cbc.1668.mcz

Chris Cunningham uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cbc.1668.mcz

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

Name: Morphic-cbc.1668
Author: cbc
Time: 16 June 2020, 8:36:04.285918 pm
UUID: 9e2392ae-55f6-9748-b55f-263f9b440d47
Ancestors: Morphic-mt.1666, Morphic-ct.1666

Merging Morphic-ct.1666 into the main line.  Fixes dialog boxes so that we can interact with the message after clicking on the text - but still allowing keyboard control with keys prior to mouse interaction.

=============== Diff against Morphic-mt.1666 ===============

Item was changed:
  ----- Method: DialogWindow>>createMessage: (in category 'initialization') -----
  createMessage: aString
 
  messageMorph := aString asText asMorph.
  messageMorph
  name: 'Message';
  readOnly: true;
  setProperty: #indicateKeyboardFocus toValue: #never;
+ setProperty: #needsClickToFocus toValue: true.
- lock.
  self setMessageParameters.
  ^ messageMorph!

Item was changed:
  ----- Method: TextMorph>>handlesKeyboard: (in category 'event handling') -----
+ handlesKeyboard: anEvent
+
+ ^ ((self valueOfProperty: #needsClickToFocus ifAbsent: [false]) ==> [
+ anEvent hand keyboardFocus = self])!
- handlesKeyboard: evt
- ^true!