The Trunk: Morphic-mt.1570.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1570.mcz

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

Name: Morphic-mt.1570
Author: mt
Time: 15 October 2019, 9:00:19.256598 am
UUID: ec33cc76-8890-cf4f-9df3-b104c58907ca
Ancestors: Morphic-mt.1569

Complements Multilingual-mt.247.

=============== Diff against Morphic-mt.1569 ===============

Item was added:
+ ----- Method: HandMorph class>>compositionWindowManager (in category 'Multilingual-ImmPlugin') -----
+ compositionWindowManager
+ self flag: #ImmPlugin.
+ CompositionWindowManager ifNotNil: [^CompositionWindowManager].
+ Smalltalk platformName = 'Win32'
+ ifTrue: [^CompositionWindowManager := ImmWin32 new].
+ (Smalltalk platformName = 'unix'
+ and: [(Smalltalk windowSystemName) = 'X11'])
+ ifTrue: [^CompositionWindowManager := ImmX11 new].
+ ^CompositionWindowManager := ImmAbstractPlatform new!

Item was added:
+ ----- Method: HandMorph>>compositionWindowManager (in category 'Multilingual-ImmPlugin') -----
+ compositionWindowManager
+
+ self flag: #ImmPlugin.
+ ^ self class compositionWindowManager.!

Item was added:
+ ----- Method: Morph>>preferredKeyboardBounds (in category 'Multilingual-ImmPlugin') -----
+ preferredKeyboardBounds
+
+ self flag: #ImmPlugin.
+ ^ self bounds: self bounds in: self world.
+ !

Item was added:
+ ----- Method: Morph>>preferredKeyboardPosition (in category 'Multilingual-ImmPlugin') -----
+ preferredKeyboardPosition
+
+ self flag: #ImmPlugin.
+ ^ (self bounds: self bounds in: self world) topLeft.
+ !

Item was changed:
+ ----- Method: TextMorph>>preferredKeyboardPosition (in category 'Multilingual-ImmPlugin') -----
- ----- Method: TextMorph>>preferredKeyboardPosition (in category 'editing') -----
  preferredKeyboardPosition
  | default rects |
+ self flag: #ImmPlugin.
  default := (self bounds: self bounds in: self world) topLeft.
  paragraph
  ifNil: [^ default].
  rects := paragraph selectionRects.
  rects size = 0
  ifTrue: [^ default].
  ^ rects first bottomLeft!

Item was added:
+ ----- Method: TextMorphForEditView>>preferredKeyboardPosition (in category 'Multilingual-ImmPlugin') -----
+ preferredKeyboardPosition
+
+ | pos |
+ self flag: #ImmPlugin.
+ pos := super preferredKeyboardPosition.
+ ^ pos + (self boundsInWorld) topLeft.
+ !