[squeak-dev] The Trunk: Morphic-cbc.1668.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 17 03:36:11 UTC 2020

Chris Cunningham uploaded a new version of Morphic to project The Trunk:

==================== 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.
  		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!

More information about the Squeak-dev mailing list