Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.910.mcz==================== Summary ====================
Name: Morphic-mt.910
Author: mt
Time: 21 April 2015, 4:58:44.476 pm
UUID: d8b2209b-5da2-dc4a-8c64-b879986178bd
Ancestors: Morphic-mt.909
Fix keyboard focus manipulation in text editor, who should rather refer to its morph than itself. Text editors do never have keyboard focus; they are no morphs.
=============== Diff against Morphic-mt.909 ===============
Item was changed:
----- Method: TextEditor>>mouseDown: (in category 'events') -----
mouseDown: evt
"An attempt to break up the old processRedButton code into threee phases"
| clickPoint b |
oldInterval := self selectionInterval.
clickPoint := evt cursorPoint.
b := paragraph characterBlockAtPoint: clickPoint.
(paragraph clickAt: clickPoint for: model controller: self) ifTrue: [
markBlock := b.
pointBlock := b.
+ evt hand releaseKeyboardFocus: morph.
- evt hand releaseKeyboardFocus: self.
^ self ].
evt shiftPressed
ifFalse: [
self closeTypeIn.
markBlock := b.
pointBlock := b ]
ifTrue: [
self closeTypeIn.
self mouseMove: evt ].
self storeSelectionInParagraph!