The Inbox: Graphics-tobe.425.mcz

A new version of Graphics was added to project The Inbox:
http://source.squeak.org/inbox/Graphics-tobe.425.mcz

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

Name: Graphics-tobe.425
Author: tobe
Time: 27 January 2020, 5:11:45.257843 pm
UUID: 2f66f6ea-c0d5-4487-bc4d-af76d67acc2e
Ancestors: Graphics-pre.424

Fixes an issue causing an infinite text composition loop when placing embedded morphs which exceed the current composition rectangle's width. The fix entails consistently returning Booleans which indicate whether the morph still fits.

=============== Diff against Graphics-pre.424 ===============

Item was changed:
  ----- Method: CharacterScanner>>embeddedObject (in category 'stop conditions') -----
  embeddedObject
 
  pendingKernX := 0.
  ((text attributesAt: lastIndex) reject: [:each | each anchoredMorph isNil])
+ ifNotEmpty: [:attributes | (self placeEmbeddedObjectsFrom: attributes) ifTrue: [^ true]].
- ifNotEmpty: [:attributes | self placeEmbeddedObjectsFrom: attributes].
  self setFont.
   
  "Note: if ever several objects are embedded on same character, only indent lastIndex once"
  lastIndex := lastIndex + 1.
  ^false!

Item was changed:
  ----- Method: CharacterScanner>>placeEmbeddedObjectsFrom: (in category 'private-text-anchor') -----
  placeEmbeddedObjectsFrom: textAttributes
  textAttributes do: [:attr |
  "Try to placeEmbeddedObject: - if it answers false, then there's no place left"
+ (self placeEmbeddedObjectFrom: attr) ifFalse: [^ self crossedX]].
+ ^ false!
- (self placeEmbeddedObjectFrom: attr) ifFalse: [^ self crossedX]]!